ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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SSSSSSSS HH HH 000000 DDDDDDDD EEEEEEEEEE vv VV PPPPPPPP RRRRRRRR TTTTTTTITT 
SSSSSSSS_ HH HH 000000 DDDDDDDD EEEEEEEEEE vv VV PPPPPPPP RRRRRRRR TITTTTTITT 
$$ HH HH 00 00 OD DD EE vv vv PP PP RR RR TT 
$$ HH HH 00 00 OD DD EE vv vv PP PP RR RR TT 
$$ HH HH 00 00 OD DD EE vv vv PP PP RR RR TT 
$s HH HH 00 00 OD DD cE vy VV PP PP RR RR TT 
SSSSSS HHHHHHHHHH 3800 00 0D DD EEEEEEEE vv VV PPPPPPPP RRRRRRRR TT 
SSSSSS HHHHHHHHHH §=600 00 OD DD EEEEEEEE vv VV PPPPPPPP RRRRRRRR TT 
SS HH HH 00 00 OD DD EE vv VV PP RR RR TT 
SS HH HH 00 00 OD DD EE vv vv PP RR RR TT 
SS HH HH 00 00 OD DD EE vv WV PP RR RR TT eee 
SS HH HH 00 00 0D DD EE vw VV PP RR RR TT eee 
SSSSSSSS HH HH 000000 DODDDDDD EEEEEEEEEE vv PP RR RR TT eeee 
SSSSSSSS HH HH 000000 DDDDDDDD EEEEEEEEEE vv PP RR RR TT ceee 
LL IIIT] SSSSSSSS 
LL Hii! SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] $s 
LL I] SS 
LL I] Ss 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 
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tields he than displaying max blocks as the number 
f caches were enabled. 


v03-022 casa? CW Hobbs 24-Jul-1984 
nee L support, a few more fields “Pore bit explanations 
tobe more sentence-Like. Change hob. 
ne which performs better breaking. ~ 


v03-021 CwWwH3021 CW Hobbs 14-Apr-1984 


O_LIST to use a 


PAPAIN 
NOUS WN O OONOUE WO 


; MODULE shodevprt (IDENT = ‘v04-000° 

; ADDRESSING _MODE (EXTERNAL = GENERAL)) = | 
3 BEGIN | 
Ea | 
4 § Aye ees aad came “pues tea Sone oy WEEE E Pat eS 
; Hil ® | 
; is COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * | 
be 1 ie DIGIT T CORPORATION. MAYNARD. MASSACHUSETTS. * | 
Pa Tis ALL Ri S RESERVED. . 

; 48 | is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
3 (16 1 i ONLY IN ACCORDANCE WITH THE OF VSUCH. LICENSE AND WITH THE 

3; 9§ 1 i® INCLUSION OPYRIGHT NOTIC SOFTWARE OR THER 

i 18 1 ie COPIES THEREOF NAAY NOT GE PROVIDED OR OTHERWISE MADE AVAILABLE TOLANY © 

is | is OTHER PERSON, NO TITLE TO AND OUNERSHIP OF THE SOFTWARE 18 HEREBY 

: 18 18 1 is TRANSFERRED. ° 

; 9 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3; (ot 1 i* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 

: $e ¢ | fs CORPORATION. : 

> eh 4 iis DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

; é : 1 is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ° | 
: 

: } | aneheinnneesinasbebeienndenhsineeeenemieneeneneeneinnbeneennanabanes | 
. i 

1 i 

3 1 1 } i++ | 
3 : § i i FACILITY: SHOW utility | 
; 35 5 1! ABSTRACT: 
3 13 This module contains the displa ay routines for the SHOW commands which | 
; 1? deal with pbevices. i.e. SHOW DEVICES, SHOW MAGTAPE, 

; Vi and SHOW PRINTER. 
: 40 1 i ENVIRONMENT | 
3 $ ' VAX native, user mode. 

3 43 1 i AUTHOR: Gerry Smith CREATION DATE: 28-Jul-1982 | 
3 45 i MODIFIED BY: | 
; 4 1! vO3-023 CuH3023 B-Aug-1984 | 
3 i : extent coches, ore “¢isebled, display zeroes in all three | 
; 1: 
; 1: 
3 1: 
; 1: 

4 1: 
; 1 | | 
; 1! | 
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Add a couple of “Stee items for sheen 
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v03-020 
Finish up the e cluster or dela, and rework 1G fue Creptape 
“terove their appearance and readabilit neste: 
greg obert for the suggestion for new style 


v03-019 CunSO1P W Hobbs 1e-awiee 
— Bs. sa oe that = AT look at the MNTVERIP before 
VALID bit. The VALID bit can be in 
: chor’ state dur ng mount verif sarten uge eature 
to scan cluster lock database (INCOMPLETE!) 


v03-018 pacer 35-Mar-1984 
$s to prin af Lorat ion class device names. 
Ase snot fied brie splay by removing two-thirds 
of the FAO control strings. 


v03-017 CwH3017 CW Hobbs 28-F EB-1984 
Add more info to duat-path sole s, and reduce the 
amount of noise in the why display. Add device 
types for uVAX disks and other new devices. 


v03-016 EMD004 Elle n A. Dusseault 27-F EB-1984 
Add ability to d epley faliback. haracteristic of 
@ printer in routine, display_printer. 


v03-015 JLV0330 Jake 7-F EB-1984 
Add ‘disconnected* to eo terminal display. 


v03-014 GJ = Ads) Greg Aude teutcz. 4-Jan-1984 8:24 
ad aint ournal specifi c¢ flegs to the full journal device 


> + Xie DeaDmo (Deallocate upon dismount) bit to both the 
ful ond. the brief journal device displays. 


++ 


eae 


»OoC 
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v03-013 LMPO165 L. Mark Pilant, 11-Oct-1983 9:00 
Make the pret dual port display more readable (and less 
confusing). 

v03-012 LMP0162 Mark Pilant 6-0ct-1983 15:18 
Add support for entiptos dual ported device names. 

v03-011 GASO186 17-Sep-1983 


Fix /FULL displa i Rectan! name, by extending the 
Length to ucb$s “Yn nan. 


v03-010 LMP0140 L. Mark Pilant 24-Aug-1983 0:35 
Add support for a ics. 
v03-009 GAS0167 Gerr ry Se 22-Aug-1983 
Fix the processing o as Seual devices for journals. 
v03-008 GAS0149 Gerry Smith 28-Jun-1983 


Use IOCSCVT _DEVNAR for the sale name. 
v03-007 GAS0133 Gerry Smith 16-May-1983 


a er ee ee ee ee ee ee ee ee ee ee ee ee ELS 
oe ee ee Dreier i i tc Rite it ih Rh Re Di i De i Re De ee eh el 


FARASSSLSARARASSELISESLE 


Fan aSSRLESRORISSE 


oe es we ss 9 


Felecia AE, wth eunstbats 


: 


; 11 "15 1! Add default extend quantity and file protection, as well 
: 1 a : as retention eee for disks. , 

Hae b | 1 i v03-006 GAs0120 y Sait 14-Apr-1983 

: 1) , ; H Modify the Gleptmee sl mit for a more tabular format. 
: 4 121 1: v03-005 GASO114 Gerry Smi 1-Apr-1983 

; ; ; ; : Fix display to handle Cong "éovies names. 

$126 126 1: v03-006 CwH1002 CW Hobbs _ Thar=1983 

; ; 5 : > oe : Display the extended pid for the owner 

| 1 i i v03-003 GAS0110 Gerry Smith ‘ten 

: ; ; } H support for cluster devices. 

; 4 130 1: v03-002 eso Gerry Smith 11-Feb-1983 

: : , 1 : Add support for rnals. 

: 4 1 5 i i v03-001 GAS0105 Gerry Smith 21-Jan-1983 

ae | 1 1! Fix the Length of the } a name field. Remove the 

; : 5 : 5 ; : quotation remarks from volume Labels. 

-¢ 137 1 ie. 
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; Include files 
BRARY 'SYSSLIBRARY:1 18"; | VAX/VAS system definitions 
QUIRE *SRCS:SHOWDEF®; : SHOW common definitions 
REQUIRE 'SRC$:SHODEVDEF *; i SHOW DEVICES common definitions 
4 


; Define @ shared message code for the read error 
SSHR_MSGDEF (SHOW, 120, LOCAL, (READERR, SEVERE) ); 


' 

: Macro to setup a table of keys and counted ascii strings 
MACRO 

table_keys (tag,string] = tagt, 


table_entries (tag,string] = cstring(ZSTRING(string))%, 


make table (name) = 
CITERAL ZNAME (ZSTRING(name,*_number’)) = (ZLENGTH-1)/2; 


Paes Les tRiwe (near)... tree) : VECTORCZNAME(name, *_number') ,BYTE) 
NITI (BYTE (table keys REMAINING) )) 

(ZSTRING(name)-' label") : VECTOREZNAME(name, *_number')] 
INITIAL (table_entries (ZREMAINING));%; 


PUSS SS Abode SORE O ROO Se 
FUN "CO VOONOUES WN 


MACRO 
unknown = cstring(*unknown' )%; 
i 


i A macro to add successive ASCII items to a string buffer, and update the 
: descriptor for the string. Saves lots of typing of ZASCiDs. 
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CRO 
add_to_list (ptr, string, length) = add_to_list_rtn ((ptr), ZASCID string, (length)) 2%; 
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Etbctabtae ,yiese Ser 
tt ~taee' (abd); 
make_table a rnal, 

t -fy nl, fogovery= 
dt$_bijni, ‘before-im 
dt$_aijni, ‘after-ima 
dt$_atjni, *audit-tr 
dt$_cljnt, ‘control 
dt$_unknjnl, ‘unknown 

1 
; Make a table of access modes 
change_acl_addr : INITIAL (0). 
format_acl_addr : INITIAL (0), 
leading blanks : INITIAL (0), 
e_table : VECTORL4 
INITIAL (estring( Kernel"), 
cstring('Exec’) 
cstring(*Super's, 
cstring("User')); 


BIND 


ascid_null = ZASCID °° 
ascid-secureshr = ZASCID *SECURESHR'; 
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iia Sa 1 | TeRSOIns 


unit journal’, 
of dusrat 
ie ewes 
ournal' 
ournal'S; 


! Address of change_acl routine for call by name 
! Address of format_acl routine for call by name 
! Leading blanks for continuation Lines 
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; Table of contents 


display 


common_display 


EXTERNAL — 


++¢ 


tib37958 3 _image_s 


scan_cluster_locks 
showSwrite_Lline 


H NOVALUE, 


: NOVAL 
: NOVALUE , 


3 
<< 
PE 
a 
c co 
ss 


i NOVALUE, 


$ NOVALUE, 
: NOVALUE; 


ifosen-1964 04:85:57 


AX-11 BLi iss: -32 v 
etiuree SRC Shope 


! Jacket routines for call-by-name 


SHATAKAASAAAAAAAAAAAEATAAAAAAAAAARAAAAAAAERAAAARAKEEE 


A couple of words about formats: 
The current format for /FUL , 


displays ‘s that S phere or are 4 


spaces. tor lowe 


charac srs e 


Llow y 4 Bian s, followed by 


B characters of text. 
is u 


stiiles te to fix 


AL 


Please 
- unless you're 
“the displays 


SHKKKKAAHAAAAAAAAAAAAAAAAAeeeeeeeeeeeeeeAeenese 


pat 69231 (4 


— Sess 


5 


7? 
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7? 
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7 
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? 
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-Sep-1 :35:57 AX-11 Bliss-32 V4.0-74 
1$-Se0-1984 93:39:36 CLIUTL.SRC Shope VPRT 69251 
oat ROUTINE add_to_list_rtn (ptr, string : REF SBBLOCK, Length) : NOVALUE = 


! Add a string to the orriae gutter, If the string would exceed the length 

' desired, then break the str ng and form a new string. To find the place to 
! break, scan from the back of the string looking for spaces. If a space is 
» attempt to split at the space. 


f 
' 
' 
' 
' 
' 
| ptr - the address of a pointer to an grey of string descriptors 
; ptring = pointer to a string descriptor for the input string 

ength = @ maximum length for a fragment 
: l i l h f f 
' 
t 
' 
] 
i 
a 


i Outputs 
: ptr = might be adjusted to point to a new descriptor 
perio} = Length of output fragment 


ptr = pointer to start of current output fragment 


REGISTER 
dptr : REF VECTOR, 


slen, 
sptr : REF VECTOR C, BYTE); 

' 

: Load some registers with a few common values 

slen = ostrinet dsceu. length); ! Grab the Length into a register 

sptr = .string dsc$a_pointer); ! Grab the petorer into a register 

dptr = ..ptr; ' Look at the 

If the new string fits, append the new string to the buffer and adjust the length © 


if .dptr[0) + .slen LEQ .length 
tne” 9 


first descriptor itself 


BEGIN 
CHEROVEC. ston, ! Add the string to the buffer 
S ; 
:dpert 13 + .dptr(0)); ' 
Soerted = .dptr([0) + .slen; ! Adjust the length for the appended segment 
ea ! ALL done, go back 


The new string would make the output string too long, if we can stick part of the 
ae string on then do so. Move to a new descriptor and move the rest to the new 
output string. 


LSE 
BEGIN 


Scan the segment, looking for a word break (a space). 
DECR si FROM .slen-1 TO 1 ! Scan backwards through the new segment 


n 9 
aes ri ea ot bette ay) tek oe Page 63 


if BEGIN 
IF .sptr£€.si] EQL %C° * If we find a space 
! an 
regener? + .si LEQ .length ! the string before the space fits 
es 
CH _ ! Add the string before ° * to the old buffer 


rt -dptr(0)); 
dptrto3 2) sabtrthd + th 
en = .slen - .si; 
pete = a + .si; 


Adjust the Length for the appended segment 
Remove the first ay... ae the segment, 
leaving a leadin 


E ITL And finally, leave the t Loop 
END; 
i a Sa to break the Line would be at a hyphenated word, look for one 


DECR si FROM .slen-1 TO 1 ! Scan backwards through the new segment 


BEGIN 
IF .sptr€.si] EQL &C°-' ! If we find a hyphen 
! an 
nen" + .si LSS .length ! the string including the hyphen fits 


BEGIN 
capatersccsee + ; 1, 


Add the string with the ‘=" to the old buffer 


‘etry 

Adjust she bengeh for the appended segment 
gree By first piece from the segment, 
leaving > leading Ryphen (strippe shortly) 

And finally, leave the loop 


Gpertes = a saberthd + 
en = .slen - .si; 

pete = geotr ® .813 
é IT LOOP; 


SSsesee 


Point the next descriptor at the buffer 
Move to the next descriptor 
Shuffle the passed pointer * else 
Adjust the length and ppinter. 
in order to s rie the leading space (or hyphen) 
Add omy heading » anks aed are desired 
e 


slen = 8 en’ ~ 1: 
ERSFILLGae! * ‘Leading.blanks, .dptrt1)): 


ee a ed ed ad ed 
NOULSWN OO 


Se Se Se Se Ge Se Se Ge Se Se Ge Se Ge Fe Fe Gs Ge Ge Ge Ge Ge Ge Fe Se Ge Se Ge Se Se Ge Se Se Ge SF Se Se Se Se Se Ge Se Se Ge Se Se Se Ge Ge Se Ge 
meee OO eee wees 


OOCSCOOSOOSOSOOOOOCOCOOOOOOOOOoO 
PEEREPEERRERERER Toe 
PR IRIAN AAEEE DISTTSTSISTIT B® BB ES NANNIES SITTIN &* EE 
: OQvecacace 


SRK KLKPL LE LLEESEE 


800 CHSMOVE (. oot en, Copy ¢ string to the bu 
1 aoee remove the leading s ace “(or hyphen) 
8 § tr1) + , leading blanks); Place after the leading 5 anks, if any 
9 RETORe, : atith + , leading Blanks; Save the new Length 
5 Be ALL done, go bac 


-TITLE SHODEVPRT 
-IDENT \v04-000\ 


LPSECT $PLITS,NOWRT .NOEXE ,2 


=32 V4.0-74 


Leer Ut see sno vPRT 682: 


SH TES, MEU 


9 
1e-8ep-1 


ofyneT 


Removable\ 
Removable\ 


- 
ao) 
a 
x 
-_ 
tae 


9>\Normal-1 


4>\RP 
4>\RM 
4>\RP 
4>\RP 
4>\RL 
4>\RL 
4>\RX 
4>\RX 
4>\RM 
4>\TU 
4>\RM 
4>\RX 
4>\ML 
4>\RB 
4>\RB 
4>\RA 
4>\RA 
14>\R 
4>\RA 
10>\R 
4>\RD 
14>\R 
4>\RX 
10>\R 
4>\RD 
4>\RD 
4>\RD 
4>\RA 
2>\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 
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DOU. ODO O 3s BOR FONOMPLP KUN DOWN — VOC KNOWN — DOODOUMONUMAWN 
POET EET ESET ETE ET ETE IED ll lll lll ll all ll lll lll al lhl 


Oo wv o uO 
VwMuv nun ON SO ea 
oro wo wr wn wv ~o 
aaa wn Ow Oo wn 
mor oo CO OC ~o 
-oO- a 82 6a @® So 
mre ont CO eM ™N 
-aw _ Wwe. Ww N 
mor 6oos © w 

> 

. s] 
in esr s a 
- - od w 
Lal 0. o al 

N NM 
~O L 2) a 

vy VY 

~o Oo 

w w 

0 ~o 


10 


r $ $6 20152 B.ACE: ASCII 
4 4 00156 P:ACG: ASC 
2 4C DOTDA P.ACH: ASCII 
41 4¢ POISE Beacl: | <ASCH 
& oC P.ACK: .ASCII 
4 : QO1GE P-ACL: <ASCIT 
r 4 00173 P-ACH: :ASCII 
1 54 00178 P:ACN: SASCII 
1 ri vv P.ACO: ASCII 
5 00184 P:ACP: <ASCII 
41 4¢ DOTBA PLACQ: -ASCII 
41 4C¢ DC P.ACS: .ASCII 
41 4C¢ P.ACT: .ASCII 
’ 1 3 ' P.ACV: .ASCII 
4 AA P.ACW: .ASCII 
1 54 56 BO P.ACX: .ASCII 
1 54 56 B6 P.ACY: .ASCII 
1 54 56 BC P.ACZ: .ASCII 
1 1 54 56 C2 P.ADA: .ASCII 
1 54 56 8 C8 P.ADB: .ASCII 
73 «65 4 Te 65 33 20 0 32 54 56 OC CE P.ADC: .ASCII 
he et ee TSS 8f 22 O83 Oolee Prades cAStll 
78 31 30 $ 48 45 54 07 EA P.ADF: .ASCII 
38 (41 $5 4 Fs P.ADG: .ASCII 
20 74 69 6E 75 20 79 72 65 76 6F g $2 72 15 OOF? P.ADH: .ASCII 
6 . oo re : 6F 6A 06 
6A 20 65 67 61 6D 69 2D 6 2 OF § $e 14 OD P.ADI: .ASCII 
$6 61 $F te 6F Hs 
6F 6A 20 65 67 61 6D 69 2D e ie $} ! ‘ P.ADJ: .ASCII 
6F 6A 20 6C 69 61 72 74 2D 74 t, oF 5 $) } i P.ADK: .ASCII 
61 6€ 72 75 6F 6A 20 6C 6F 72 74 6E 6F 6 of rs P.ADL: .ASCII 
61 6€ 72 75 6F 6A 20 6E 77 6F 6E 6B 6E 75 oF +3 5, P.ADM: .ASCII 
6C 65 6€ 7 5 4 6 A P.ADN: .ASCII 
6 $ $ bs 4 a P.AD ASCII 
72 $3 2 ? 2 5 00276 P.A ASCII 
eADQ: .AS 
2 6 7C P 1’ 
P.ADS 


: .BLKB 
P.ADR: .LONG 
P.ADU: .ASCII 

: ONG 


-PSECT 
03 02 01 00000 PRINTER TYPE: 
00003 “BLKB 


3:3) AX-11 at BS Pe Weer 80-1 


i$ 3eoct98e 0: 


CLIUTL.SRC 
cpa 


SHODEVPRT .B 


<3>\FTB\ 


Fe ee 


0 Series\ 
<1 Berner 108 


<3> 

<7>\TEK4O1x\ 

<4>\LA84\ 
<21>\recovery-unit journal\ 
<20>\before-image journal\ 
<19>\after-image journal\ 
<19>\audit-trail journal\ 
<15>\control journal\ 
<15>\unknown journal\ 


<6>\Kernel\ 


7694720 


-ADDRESS P.ADS 


-AD 
TNT alates 


el 
-ADDRESS P.ADU 


SOWNS ,NOEXE 2 


1, 2. 5 
1 


$ 
~~ 
wane 
a 


22 iin 


OF OF OD OC OB 
19 18 16 #17 «+15 


00000000" 00000000’ 


41 40 40 21 
66 65 64 63 62 


26 25 25 26 


00000000" 00000000° 


00000000° 00000000" 


00000000° 00000000° 


00000000° 00000000" 
05 04 O03 02 01 


00000000" 00000000° 


wennanet” wat w -f 


00000000" 00000000° 
05 04 03 02 01 


1% 135 12 «#11 «10 
22 21 IE 10 


* 000 
SSH: St 
000000° 00000000° 
PP ee 


01 


00000000° 00000000' 
00000000 
00000000 
00000000 


00000000" 00000000° 


00000000' 


0000000' 
000000' 


o 


ifc3en-1964 04: 


00004 PRINTER_LABEL: 


ADDR 
00010 TAPE_TYPE: 
8 BYTE 


ta TAPE ar ism 


09:36 


AX-11 Blis ie9238 v4. Poth 
CLiviLe SRCIJSHODEVPRT .B852;1 


ESS P.AAA, P.AAB, P.AAC 
}. 2, 3, 4 5, 6. 7, 8. 9, 10 


eADDRESS P.AAD, P.AAE, P.AAF, P.AAG, P.AAH, = 


dooad FORMAT_TYPE: 
-BYTE 


4 98 -BLK 
0048 FORMAT_LABEL: 


P.AAI, P.AAJ, P.AAK, P.AAL, P.AAM 
2. 13, 14 


.ADDRESS P.AAN, P.AAO, P.AAP 


00054 DISK_TYPE: 


s0043 -BYTE 
00078 DISK “unsiti 


-ADDRESS P.AAQ, P.AAR, P.AAS, *e kane P.AAU, = 


09 
C 
0D 


OOF 
100 TERMINAL_TYPE: 
“BYTE 


010F 
O11E 


-BLKB 
so 3 TERMINAL _LABE 
-ADDRESS P.ABY, P.ABZ, P.ACA, P.ACB, P.ACC, 

ACD, P.ACE, P.ACF, P. 


1, 2 
1 


io 


e oO e e P. 7 ° 2 P. Z, 

° eo eo P. o se eo P. F, 
P.ABH, ra P. 2 P.ABK, P. he 
P.ABN, P.ABO, P.ABP, P.ABQ, P.ABR, 
P.ABT, P.ABU, P.ABV, P.ABW, P.ABX 


't 17 118, 19, 20 20, 21, 22, 23. Pp 
8; we 6.785 38. #60° +8 


L: 


01 Cc P. e P. ACG, P.ACH . 
0154 P.ACJ, P.ACK, P.A “ACM, P.ACN, 
bigs P.ACP, P.ACQ, P.ACR. P.ACS, P.ACT, 

1 P.ACV, - P.ACX, P.ACY, P.ACZ, 
B85 P.ADB, P.ADC, P.ADD, P.ADE, P.ADF, 
0180 JOURNAL py a t 

. 1. 2. 3. 4 3. @ 

0186 2 


- ADDR 


~BL KB 
0188 JOURNAL LABEL: 


ESS P.ADH, P.ADI, 


ous 


P.ADJ, P.ADK, P.ADL, P.ADM 


001D0 CHANGE_ACL_ADDR: 
00104 FORMAT Act ADDR: 
001D8 LEADING_BLANKS: 
001DC MODE_TABLE: , 


eADDRESS P.ADN, P.ADO, P.ADP, P.ADQ 


NULL= 
=SECURESHR= 
SEXTRN SCAN_CCUSTER_LOCKS 


- ADR 
P.ADT 
-EXTRN EXPAND. PROT LIBSF IND_ IMAGE _SYMBOL 


iSbeont9Re 01:35:57 YANG OLiagesz yeste7, | Page IF 
LEXTRN SHOWSWRITE_LINE | 
-PSECT SCODES,NOWRT,2 


-ENTRY ADD_TO_LIST_RTN, Save R2,R3.R4,R5,R6,R7,RB,-; 0701 
03FC 00000 ENTR A TO_LIST_RT 2.R3 5 7,R8,-; 0701 
9 08 A 0 movi STRING, RO : 0731) 
6 mov2we (RO), SLEN : | 
8 04 AO D MOVL  4(ROS, SPTR + 0732) 
6 ¢ D MOVL. @PTR, DPTR : 07 
50 66 ¢ ADDL3 SLEN, (DPTR), RO : 07 
me > ft GD veaereee: : 
30 06 =A § ADDL (DPTR) <DPTR) : 0742 | 
MOVC3 SLEN, (SPT thon : 
66 7 ¢0 ADDL2 SLEN, (¢ PIR + 0743 
RET 3; 0752 
59 57 D9 1$: MOVL SLEN. $I + 0756 
» % BRB $ : 
20 6948 91 28: CMPB Es SI) CSPTRI, #32 + 0759 
1 lg BNEQ 3$ ; 
Mee 3 As Bhs (anonym poe 
14 14 BGTR 3$ : 
50 04 as ci 0 ADDL3 (DPTR), 4(DPTR), RO + 0766 
6 9 MOVC3 SI, (SPTR), (ROS : 
: 9 ¢ 4 ADDL2 SI. (DPT + 0767 
9 ¢2 00 SUBL2 $1, SLEN + 0768 
8 9 ¢0 0004C ADDL SI. SPTR : 0769 
zk O04F BRB 4 : 0763 
9 9 F5 00051 3$: SOBGTR SI, 2$ : 075 
9 7 > 0054 4$: MOVL SLEN, $1 : 077 
D1 0047 BRB 6 : 
20 6948 91 00059 5$: CMPB ss (SI) CSPTRI, #45 : 0780 
le 0050 BNEQ 6$ 3 
50 66 9 C1 0005F ADDL3 SI, (DPTR), RO + 0782 
0c AC 0 D1 CMPL RO. LENGTH ; 
1D 18 BGEQ © 6$ ; 
51 0? «Ad H: MOV 1(R9), R1 + 0785 
50 06 A g ADDL3 (DPTRS, 4(DPTR), RO + 0787 
60 6 1 8 MOVCS R1, (SPTR), (ROS : 
50 66 9 3 ADD SI. (DPTR). RO : 0788 
6 01 A V 1(RO), (DPTR) : 
C SUBL2 $I, SLEN : 0789 
8 9 ¢ ADDL s1. SPTR ; 790 | 
po 3 FS SOBGTR SI, 5$ : 0777 
04 Ab ci ADDL3 (DPTR)+, (DPTR)+, 4(DPTR) + 0794 
046 BC $ og MOVL DPTR, @PTR : 07 
D DECL SLEN : 079 
4 06 INCL SPTR : 198 
59 0000° cf p MOVL LEADING BLANKS, R9 ; 07 
59 20 6E - ¢ mMOVCS 7 . (SPT, #32, R9, @4(DPTR) 
04 8649 68 28 ves SLEN (SPTR) . 124 (DPTRD CRI : 080 
66 9 ci ADDL SLEN, (DPTR) : 80 


swoog yet ifcbeoctgne 01:85:57 pans eLtencaz yeso-7eg, | Page 14 


; Routine Size: 173 bytes, Routine Base: SCODES + 0000 


ae BS 
—+) 


Py ot ot at at ot at at at at at at at at 


Se Se Se Se Se Se Se Ge Ge Se Se Se Se Se Se Ge Ge Ge Se Se Se Ge Ge Se Ge Se Ge Ge Ge Se Ge Se Ge Se Ge Se Ge Se Se Se Ge Ge Ge 
- 
a 


sry ROUTINE check_mnt_all (scratch, flags) = 


Vem 
i 
restrictions. mote that we must wait 
before we can decide 
Inputs 
poneren = contains data about the device 
LAGS = contains info on what to print 
Outpu 


ts 
FLAGSCDEVISV_DISPLAYED] set if we passed 
Status - true if we pass, false if we didn't 


scratch : REF SBBLOCK, 
flags : REF SBBLOCK; 


Set the bit and return true 
flags(devi$v_displayed) = 1; 
RETURN true; 

END; 


igcdeo-1904 1:85:57 


This checks to see that we pass any SHOW peice /ALLOCATED or /MOUNTED 
til after we check clusterness 
whether a device is really mounted or not. 


If so, 


1 

' Make a check to see if /ALLOCATED or /MOUNTED was specified. 
! then check to see if the device is mounted/allocated. If not, then 
; don't display information on the device. 

if .flags(devi$v_mounted] 

THEN IF NOT .$BBCOCKCscratch(d_l_devchar], dev$v_mnt] 

THEN RETURN false; 

If .flags(devi$v_allocated] 

THEN IF NOT .$BBCOCK(scratch(d_l_devchar], dev$v_allJ 

THEN RETURN false; 

' 


-ENTRY CHECK_MNT_ALL, Save nothing 
MOVL FLAGS; R1 


AX-11 Bliss-32 V4.0-74 
CLIUTL.SRCJSHODEVPRT .652;1 


swoogyee pSBeo-19te O1:B5057 yarctt outenctz yao-7eg, Page (16 
a 23: Rowe. rt tN Nal i z 


DOO RE g 
0 3$: am RO ; 0850 


3; Routine Size: 42 bytes, Routine Base: SCODES + OOAD 


2 


Eee) 


showSwrite_line (ascid_null, arglist); 


‘ 
! Determine the appropriate label for the Line and initialize the output buffer and descriptor 


scratch(d_v_local_mount] 


head = ZASCID * Volume is oe mounted on ' 
IF .serateh d_v_remote_mounts 


head = ZASCI Volume is mounted on ' 
IF .scratch i Seeene. alti 


8%". = BASCI D° Device js allocated on node '; 
geschs hesdt dsc$w_length 
oeshove (. = buffer: -head(dsc$a_pointer], buffer); 


T 16-Sep-1 :35:57 AX-11 Bliss-32 V4.0-74 P. 7) 
vives tie 1$-Fep-1984 Sea neh thet Sta Piet ae age 
; ¢ on ROUTINE cluster_nodes (scratch, clubuf) : NOVALUE = 
; 4 
P4 4 . | meme 
; 6 i 
; of : ! This routine dis Leys a Line telling which remote nodes have 
: cre ; : talons embedded he device. 

: 6 B59 i Inputs 

; 6 BE : "scraton = contains data aboys the devi 

; 4 Bé ; eres vector, first Longuord is CSID count, 
; 2 Bé H Llowed by that many CSIDs 

: 6 Be i Outputs 

; & B6 ! ” None 

3s & wate ‘ 

; 485 BE {ooo 

; 2 BOE 

 @ 870 scratch : - yitthe 

: : {4 clubuf : REF Hay “f. LONG); 

8 Bh Favtor « wcrett, ya 

3 ; arglis 

; 49 875 aoke : vec éne3” 

3 494 th) head : REF 

; 495 7 buf fer : VECTOR Se BYTE) 

; 496 7 nodename VECTORCSL® BYTE); 

; 49 

; 49 8 $ 

: r3+4 1 Return if nothing to note 

3 i th if 0 eh ere w bits] AND (1*SBITPOSITION(d_v_remote_mounts) OR 1*$BITPOSITION(d_v_remote_all))) 
‘ ' 

3 $05 i If the extra files-11 Line hasn't been printed, then add a null Line 
3 if -scratch(d_b_aqbtype) NEQ aqb$k_f11v2 


MEW =O OONOUS WO 


PROPRIO PONUR — Ot Os OO Os 


ybBeo-1966 01:85:57 YaRGHY BL ing=52 v4, 0-742 vm of 


! Add the system names to the buffer, wrapping if we hit 80 characters 
on idx FROM 1 TO .clubufl0J 


> shot . Corie. nodename*16 OR 16); 


ar HEE trie 
att argtist $2; t Returned Length word goes ‘her 

! Note: this clears the high were of the Length 
Fesgetsy Lana idx], itmlst=arglist) 


“ee 
i odescl03 + .arglist(3] + 1) GTR 80 ! Will this one make us wrap? 


c{0), = .des ! Remove the extra 
ite, Une tdese a rglise); 


a 16; ti 
CHSMOVE g-orgtt ie 3), pease, buf fer€.desc(0JJ); 
j+ 


+ ,arglist 
(buffer. “genet »<0,16 8s 
gescl J = .desc 


END; 
f 
! Write the remainder of the buffer if we have modified it (it is possible that 
: a, will have crashed since we found the CSID, and we might not have anything 
i _ 
If .desc(0) NEQ .head(dsc$w_length) 
THEN 


aces 

desc cL0} = desc (0) = Remove the extra "' 
our’ descl0 Change the final *',"* to a 
show ovsurite. t netdest. Geld: 


Se Se Ge Se Ge Ge Se Se Se Se Se Se Ge Fe Se Se Se Ss Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Seo Ge Se Se Se Se Ge Se Se Se Se Ge 


PRIN HAALPINPINIMIAIMINININIGE EE BB BE EMME & EWE AN AAAPIPIPIPINIAD 


RETURN; 
END; 


wu 


=—OVOVNOUFS WOO 


-PSECT SPLITS,NOWRT,NOEXE,2 
75 $f 6F 56 8 0 AO P.ADW: .ASCII \ Volume is also mounted on \ 
6E 6F 6D AF 


F 
1 BC P.ADV: .LONG 17694748 
he ' 6 +3) bo P.ADW 


RS 


Zeger g 


75 6F 6D 20 73 69 +4 3 6p He +3 of 5 


C4 P.ADY: .ASCII \ Volume is mounted on \<0> 


4 D 
0106001? DE P.ADK: LONG 17694743 


eADDRESS P.ADY 


8 Gl oF Ge 8 SF 8 8 F 


> 

mo 
oO 
—s 
~ 
io 


ory 


4 1 
02 009D 


MmPrmy —fTuO 


>on 


LARSIWSLSRA 
LRAPKASAPVRAATARSIAATS SLAP NOS: 


AX-11 Blisg-32 V4.0-74 


3B 1:05:36 


ASCII \ Device is allocated on node \<0><0> 


- LONG 


CLIUTL.SRCJSHODEVPRT .B 


eADDRESS P.AEA 


«EXTRN 
«PSECT 


SCODES ,NOWRT ,2 


CLUSTER NODES, Sav 


R2,R3,R4,R5,R6,R7,RB 
sHgveuatTe LINE, RB 
-124(SP), SP 


™ 


AOWSUR]TE_L INE 
ag 2 $ 


* DESC 
(HEAD), BUFFER 


OH OD ~—VIMNDHL LEM 


$ 

#282656784, ARGLIST 
GLIST#+4 

+42, ARGLIST+8 


", YSSGETSYI 
ARGLIST#12, DESC, RO 


Pee Se Se Se Se Se Se Ge Se Be Se Se Ge Se Se Se Sse Fe Ge Fe Ge Se Ge Ge Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Be Be Fe Fe Se Se 


DESC 
#2, SHOWSWRIT 
WB. SHOWSURLTE.LINE 


3 Routine Size: 


ifoden-1964 4:85:87 


10 AE 
www Cf oP EEE 
ft UGE 
85 56 08 HA ih 
ot bane 
AE OF DOF 
a 8 HB 


252 bytes, Routine Base: SCODES + 0007 


~o 
bed 


AX-11 Bliss-32 ph ea 
CLIUTL. SRC JSHODEVPRT .852;1 


#10, DESC 
BUFFER R 
ARGLIST +1 
ARGLIST#1 
FFER, R 


» NODENAME, @DESCCROJ 
» DESC 


acLuBUF, IDX, 6$ 
16. (HEAD), DESC 
DESC 
BUFFER, RO 
DESC, 
#46, -1(RO) 
pest 


DESC 
we. SHOWSWRITE_LINE 


EEE nn 


aeitnaeicvabetiieehanseiaes 
10 
i$sSep-196s 01:85:57 YMcHt OLieg=82 y4no-742, | Page gt 


: 


; Sonat ROUTINE show device_acl (scratch : REF SBBLOCK) : NOVALUE = 

: lace 

3 5 ! 

H 78 ! This routine displays the access general ist if it qztete. Thanks to 

; Mark Pilant for CCLIUTL.SRCJSHOWACL.B32, from which it was Lifted. 

: i i Inputs 

: : ; SCRATCH = contains data about the device 

: : ine 

; LOCAL 

; 5 of gente : SBBLOCK Cacl$s_rlock_aclJ, : Lockat¢ for - Leck 

H ¥ ° ! Channel for objec 

3 object_name : VECTOR C2, LONG), : Descriptor for device name 

: 3b display idth i Output device wideh 

; 590 ace_bin_desc ; : VECTOR C2, LONG), i Binary ACE descr 

; 591 ace_storage : SBBLOCK Lacl$s_readace] VOLATILE, } pinery ACE storage 

: 3 ace_txt_desc : VECTOR LONG ! Text ACE descr 

; 59 ace_tex : VECTOR (512, BYTE), ! Text ACE storage 

; age atrorgt ist : BLOCKVECTOR C2, itm$s_item, BYTE), ge teees Mat seca bist 

; context, ! contex 

3 36 7 arglist : VECTOR (4, LONG), ! Output Tine storage 

; +A re status; ! Routine return status 

; 599 EXTERNAL LITERAL 

: 680 098s show$_obj Locked; ! object locked error message 

; 60 9 

3 $08 9 ! If we don’t need to do this, then exit now, before wasting time initing variables 

: ope 985 : which we won't use. 

3 606 09 if NOT .scratch{d_v_acl_present) 

; 608 98 RETURN; 

3 61 99¢ Initialize all necessary storage. 

: gi CHSFILL (0, titm$s_item, atr_arglist); 

5 oi% 5 ace_bin_desc{1]) = ace_storage; 

: oi? ace tut _gese 1) = acg_text: | 

3 x C = 3 

3 $13 145 | argl stro = 6: 

5 ois arglist = ace_text; | 

3; 61 1 object_chan = 0; 

; 620 1001 ob ect _nanelo) = .scratch(d_b deylen); 

3; 621 1 § object_name = scratchld_t_dev cel; 

; 6 § 1 ob ect_type = acl$c_device; | 

; 6 1 display_width = 80; 

3; 624 1005 acl_context = 0; 

: 858 1008 8 | 

: 6 $ 1008 2 ! Print the heading | 
| 
| 
| 


if.10 
Het ik a Cot bet tg Peay) to Pe Page 69 


Fe 
e 


showSwrite_ Line ( arglist); 


null 
showSwrite Line (Base {5 y bevice access control List:', arglist); 
' 


his is ~ first time, then map the acl routines from SECURESHR. This 
Se ds extra ima genset tvetion time for mapping SECURESHR, something not 
frequently neede 


i 
i 
i 
i 
iF tek -format_acl_addr EQL 0 


bh et tt ts 


WO OONOUE WN“ OVOOnNoO 


BEGIN 
status = LibSfind_image_symbol (ascid_secureshr, ZASCID ‘SYSSFORMAT_ACL’, format_acl_addr); 
IF ao -Status 


BEGIN 
SIGNAL (.status); 
RETU RN; 


E 
pyetus = ene, image_symbol (ascid_secureshr, ZASCID ‘SYSSCHANGE_ACL", change_acl_addr); 
-Status 


SERIEPRER RESO CTC ceoeS 


$ 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

; 1 j 

$ 1 

3 1 

3 1 

3 1 

3 1 

r 1 

3 1 4 

5 1 4 

3 1 4 

3 1 

3 10 

8 19 

3; 650 1 6 BEGIN 

3; 651 i 4 SIGNAL (.status); 

3 $26 1 & RETURN; 

3; 65 10 3 

3; 654 1035 END; 

fe ORR 

3 ttempt to obtain a read lock for the object. 
637 : A btai d lock f he ob 

3; 659 1040 atr -arglistlO, itm$w_itmcod]) = acl$c_rlock_acl; 

3; 660 1041 atr_arglist ; itm$wa bufsiz) = acl$s_ sr tock. acl; 

3; 661 10e8 atr_arglist ; itm$l- ~bufadr) = acl_lockid;~ 

3 066 P status = $CHANG GE_ACL™ (CHAN = :0bj tt_chan, 

3; 66 P 1044 OBJT scl _type, 

3 664 P 1045 OBJNAM = object_name 

3 665 1 4 ITMLST = atr_arglist); 

3 608 1 IF NOT .status 

; 66 Ho THEN nese 

3 og 1050 IF .status cet ss$_notqueued THEN status = show$_obj locked; 

; 670 1051 SIGNAL (.status); 

3 $7) 1 26 RETURN; 

: Ohs 1084 7 

3 674 1 2 ! Read, format, and display all the ACEs in the object’s ACL until the end 

: 679 6 i of the ACL is seen. Or until an error occurs. 

3 ro] 1 3 WHILE 1 

§ ors : DO 

3 1 44 ye o {tnfu_ itacod = act $c. readace; 

: 1 1 § atr_arglist a \- =busiz = acl$s ereadece: 

: § 1 atr_arglist bufad : = : e_st orage; 

: P 1 status = Hage ute AN = .object_chan, 

: P 1065 JTYP = o Ject® type, 


suo PRT 16-S00-1984 9}: 38: 3 AX-11 Bliss-32 V4.0-7 Page i 


14-Sep-1 CLIUTL.SRC SHODEVPRT.B 2:1 
3 5 P 1 OBJNAM = object_name, 
3 P 1 ITMLST = atr_arglist 
; 1 CONTXT = acl<context); 
3 4 IF NOT .status 
3 1 THEN 
3 ? 1 f BEGIN 
3 3) 1 § 4 IF .status EQL ss$_aclempty OR .status EQL ss$_nomoreace THEN EXITLOOP; 
; 6 § 1075 4 S1GNA L (showS_readérr, 1, object_name, .status); 
; 69 1074 RETURN; 
: 6946 1075 3 
; 695 1 6 ' 
3 636 } f : If the ACE is tagged as being hidden, don't display it. 
3 & : 3 Ht wer -ace_storageLace$v_hidden] 
HY 100 18 1 4 BEGIN 
; 701 1 ¢ & ! 
3 A } 2 : Format and display the ACE. 
3: 704 1085 4 bes bin_desc(0) = .ace storegelacesp. size): 
3; 705 p 1986 4 status = $FORMAT_ACL ACL ENT = ace rin rogs* 
3; fr P 1087 4 ACLLEN = arglistC 
; 70 P1088 4 C STR = Fe txt desc. 
3; 708 P 1089 4 WIOTH sp chr width 
3 709 P1090 4 TRMDSC = o5 SC Teron (ZCHAR (13), ZCHAR (10)), 
; 710 1091 4 INDENT = ZREF (4)); 
3; 711 1 8 4 IF NOT .status 
3 rg 1093 4 THEN 
ae 1094 BEGIN 
; 7146 1992 RETURN: (.status); 
3 715 1 +] RETU 
; at 1097 4 END; 
: 71 4 4 ! 
; 718 1 & ' Show the entry 
3; 719 1100 4 ' 
3; 720 1101 4 show$Swrite_line (ZASCID '!AD', arglist); 
: 721 1198 & 
. F § 110 END; 
: 7 1198 END; 
: 726 1105 
3 tS? 1138 RETURN; 
3; 726 110 END; 
73 73 65 63 63 61 $3 8 65 63 $3 76 65 44 29 OC P.AEC: .ASCII \ Device access control List:\<0><0> 
3A 74 73 69 6C 20 6C 6F 72 74 GE O6F 1 


ASCII 


: 
cn Meee 


P.AEE: .ASCII $5 PAE omar ACL\<0><0> 


SEREHG. SBE P=AED= hon, DONT 


00 4C 43 41 SF 54 41 4D 52 4F 46 24 53 


[a 


11 
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00 4C 43 41 SF 45 47 GE 41 48 43 26 53 59 ‘ P.AEG: .ASCII \SYSSCHANGE_ACL\<0><0> 
gi8 : 3 P.AEF: .LONG 17694734 
ADDR a 1 AEG 
A 


P.AEL: <A 


P. AEH: é 


, “ADDRESS P.AEI 


00 44 4 P.AEK: ASCII \IA \<93 : 
919 74 P.AEJ: .LONG 17694723 : 
* 00378 “ADDRESS P.AEK : 
.EXTRN SHOWS_OBJLOCKED 
“EXTRN SYSSCRANGE_ACL, SYSSFORMAT_ACL 
-PSECT $CODE$,NOWRT,2 
O7FC 00000 ENTRY SHOW DEVICE_ACL. Save R2,R3.R4,R5,R6,R7,RB,-; 0952 
A 6 9€ 9002 MOVAB LIBS$SIGNAL, R10 : 
9 900 6 £ MOVAB SYS$C ACL, R9 ; 
8 00 99 6 E 19 MOVAB LIBSFIND_IMAGE SYMBOL. R8 ; 
0 G € 1 MOVAB SHOWSWRITE_LINE, R 3 
# FCAC CE 001 MOVAB -852(SP), SP F 
4 04 AC DO 000 MOVL § SCRATCH, R6 + 0987 
01 0S Ab 01 90 z BBS wi, 5(RO), 18 ; | 
18 00 6E ~ 00 C 09 B 18: MOVCS #0, (SP), #0, #24, ATR_ARGLIST > 0994 | 
Fe AD FEFO CD 9€ 000 MOVAB ACE_STORAGE, ACE_BIN_DESC+4 + 0995 
FeEC CD 3¢ AE 9E 0003A MOVAB AcE TEXT, ACE_TXT_DESC#4 3 0996 
FEES CD 0200 8F 3¢ 00 9 MOVZ2WL #512, ACE_TXT-DESC : 099 
14 AE D4 CLRL  — ARGLIST : 0998 
18 AE 3¢ AF 9 0004A MOVAB ACE TEXT, ARGLIST+4 + 0999 
53 D4 O004F CLRL OBJECT_C + 1000 
F8 AD 06 Ab OA 1 MOVZBL 6(R6), OBJECT_NAME + 1001 
FC OAD 0 Ag 9 6 v (R6), OBJECT NAME +4 ; 1002 
o¢ AE 0 p B VL a OBJECT _TY : 1 
10 AE 50 F OA F MOVZBL #80, DISPLAY_WIDTH :1 
08 AE 04 00064 CLRL ACL. CONTEXT + 1005 
14 AE 9F 00067 PUSHAB ARGCIST + 1010 
0000" CF 9F 5A PUSHAB ASCID NULL ; 
67 2 £B ¢f CALLS #2, SROWSWRITE_LINE F 
14 AE 3 PUSHAB ARGLIST ; 1011 | 
0000" CF 9F 00074 PUSHAB P.AEB F | 
67 2 F 78 CALLS #2, SHOWSWRITE_LINE ; 
0000" CF $ 00078 TSTL.  FORMAT_ACL_ADDR : 1018 | 
A 7F BNEO : | 
0 ' CF OF PUSHAB FORMAT_ACL_ADDR : 1021 | 
' ¢F PUSHAB P.AED F 
00° CF 9F PUSHAB ASCID SECURE SHR ; 
$8 F CALLS . LIBSFIND_IMAGE_SYMBOL 3 
D MOVL RO, STAT ; 
4A f BLBC  —- STATUS, ; 1022 
9000" CF OOF PUSHAB CHANGE. ACL_ADDR : 1 
* €F 9F OOO9A PUSHAE P.AEF ; 


nn” 


PUSHAB 
CALLS 


WNnon 
wwoo 
Mono 


00000988 BF 
52 000000006 BF 

$s AE OOO900FF 8 
AE FEF 


“oO 
S 
NSrronum 
—9 -90Mo"VTo00"Jd 


nw 
ooo 
>>r>~~P> 
Ommmm ™roown 
S=SN cr eoee aaah 


F8 AD OF 
1 0D 
00781084 F 
6A 4 


5$: 


AE 


> 
3 
< 


off 


DD 

FB 

FS CD 02 €0 
FO AD FEFO cp A 
E 04 

04 4 00 
F 

a Se 
tf 


11 
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ASCID sec ESHR 
a3, LT FIND_IMAGE_SYMBOL 
STAT _ 
3655404, ATR_ARGLIST 
ACL LOckiD, RTR_ARGLIST+4 
=(SP 
-(SP) 
ATR_ARGLIST 
OBJECT_ 
OBJECT-TYPE 
JECT CHAN 
#7, SYSSCHANGE_ACL 
RO, STATU 
STATUS, 4 
TATUS, #2488 
WSHOWS_OBJLOCKED, STATUS 
#590079, ATR_ARGLIST 
ACE_STORAGE, ATR_ARGLIST+4 
ACL CONTEXT 
ATR_ARGLIST 
OBJECT_NAME 
OBJECT-TYPE 
OBJECT CHAN 
#7, SYSSCHANGE_ACL 
RO, STATUS 
STATUS, 5$ 
TATUS, #2512 
STATUS, #2528 
STATUS 
OBJECT_NAME 
#7868596 
#4, LIBSSIGNAL 
#2, ACE_STORAGE+3, 4$ 
ACE_STORAGE, ACE_BIN_DESC 


#1, LIBSSIGNAL 
ARGLIST 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Ge Fe Ge Ge Ge Ge Fe Ge Se Sse Ge Se Se Se Se Ge Ge Se Ge Se Ge Se Se Se Ge Se Se Se Be Se Se Ge Ge Se Se Ge Ge 


vou~600" 


; Routine Size: 


371 bytes . 


67 


Routine Base: 


Binns 


0000' CF OF 
Hf if 931 Hi 8$: 


SCODES + 0103 


PUSHAB P,AEJ 


AX-11 Of tee =32 v4 743 
CLIUTL. sre} SHODEVPRT .852;1 


CALLS age SHOWSWRITE_LINE 


BRW 
RET 


Page 4 


—— See 


WEReoct9Bs (4:35:52 YANGDLSencRE NARS, Pome 


: 


3 1 OBAL ROUTINE sys$change_acl 
: } GIN , wees 
: i bi 
; i i FUNCTIONAL DESCRIPTION: | 
; 735 1115 2 | This is a routine to s satisty the global reference of | 
3 1138 : the SCHANG act macro. alls the real service, 

; 13} after dynamically fooding. the F rout ne. 

; 1119 & i CALLING SEQUENCE: 

: Z 1 via $C E_ACL macro 

> 74 11 ; i ROUTINE VALUE: 

3; 76 11 i status returned from sys$change_acl service 

; 766 1126 i 

; re 1} 5 too 

3 74 1159 5 euILTIN 

3 76 11 ; CALLG,AP 

i Fe i LOCAL 

; Hs i" 1 status; 

gs. : 1138 5 RETURN CALLG (AP, .change_acl_addr); 

: 754 11 END; 


=a 


CHANGE ACL, Save nothing 


0000 8 ENTRY SYS 3 7 
0000° OF 6C FA 0000 CALLG (AP), @CHANGE_ACL_ADOR 37 
04 0000 RET $7 


3; Routine Size: 8 bytes, Routine Base: SCODES + 0346 


WfcBeoct9He O1:B5:57 pansy eLieg= sz 4.0.74, age, 38 


: 


Haye ROUTINE sys$format_acl = 


; 1 
; 1 

: WB pi 

; 11% | FUNCTIONAL DESCRIPTION: 

; 114 i This is a gunn routine to satisfy the global reference of 

3 114 : the SFORMA act macro. It simply calls the real service, 

3 6g 1332 : after dynamically loading the routine. 

; 1 i CALLING SEQUENCE: 

; es 117 : via SFORMAT_ACL macro 

; 76 1148 i ROUTINE VALUE: 
; ad i : status returned from sys$format_acl service 

; 77 1138 ine | 
; 774 11 
3; 775 11546 BUILTIN 

; 77 1155 CALLG,AP; | 
3; 77 11 § | 
: 44 | 11 

3 f 4. : status; | 
; rt 1160 RETURN CALLG (.AP, .format_acl_addr); 

; 782 1161 END; 


0000 -ENTRY SYSSFORMAT ACL, Save nothing : 1135 
0000" oF 6C FA 0000 CALLG (AP), @FORMAT_ACL_ADOR : 1160 
04 0000 RET : 1161 


; Routine Size: 8 bytes, Routine Base: SCODES + 034E 


ifcbeoctoge 01:35:57 yuna oLiencsz y4so-7ee, | Page a9 


Tate ROUTINE display _brief (scratch, flags) : NOVALUE = 


vou-b00" 


This is the brief display routine for all devices 
Inputs 
SCRATCH = contains ate about the device 
FLAGS = contains info on what to print 


Outputs 
None 


NOUS UT 


SNE 


MAP 
scratch : REF SBBLOCK, 
flags : REF SBBLOCK; 
LOCAL 


show 
ptr 3 "Ref VECTOR 


wn 


Show the string ‘‘mnt’’ in the status Line 
Pointer to char. descript 


a a — 4 a as 8 ss 2 as tn as — 2 bb 2 a an ts a tt ss tt tt 


3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

Fy 1 

3 1 

3 1 

3 1 

r 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

: 

; 1 desc_vector : VECTOR(16) i and the descriptors + ae 
é 1 NITIAL(REP 16 OF (0)), 

3 1 desc : VECTORE ! Characteristics descriptor 

: 1 buffer : VECTORCS&0, BYTE . i Characteristics buffer 

: 1189 nambuf : VECTORL64, BYTE ! Buffer for device name 

; 1 clubuf : VECTOR 1084 , BYTE), i Buffer for Lock information 

3 : 8 arglist : VECTORC15); ! SHOWSWRITE_LINE argument List 
; 119 ' 

3 1194 ! First thing, fix up the scratch area with any available clusterwide info. Note 
; 1 95 that we might set “tne devsv _ant or dev$v_all bits in this routine 

3 : 3 IF -SBBLOCK(scratch(d_l_devchar2], dev$v_clu] ! If available clusterwide 

3 : 3 scan_cluster_locks (.scratch, clubuf); 

; 1 of ' 

3 1 § ' Make a check to se 7 hg at le or /MOUNTED was specified. If so, 

3 1 ! then check to see if the de mounted/allocated. If not, then 

3 : : don't display information on the devise. 

3 1 if Not check_mnt_all(.scratch, .flags) 

; } 08 THEN RETURN; 

; 1 ! 

3 : 9 Write a header if it hasn't been done already. 

3 1 \ if .flags(devi$v_header) 

: 121 THEN 

: 1214 BEGIN 

3 1215 he esereteh d_b aGove} acs EQLU dc$_disk 

3 1 1 OR .scratch tdeb Pues ass ut dc$- tape 

3 121 THEN showSwrite_ Uine(ascig damytl. arglist(0), 
3 1218 Device Device Error Volume Free Tran 


H 11 


1en$ep-198e 12:09:86 


— 


AX-11 Bliss-32 V4.0-7 a 
CLIUTL. SRCJSHODEVPRT. 8 2;1 aad t 


i 


Status Count Label Blocks Coun. 


cS -igurnal | 


Device Journal Buff Cur. Seque| 


Device 
Status 


arg otf 
CID ° Name 

orgt st{0J); 
{lagsldeviSu_neoder) = false; 


wn 


wu 
w 


Get the device name. The actual string is of the form "_DDCU"’, so shuffle 


to get rid of the underscore. 
arg 
rg 


ratch({d_b deylend - 1; 


listo SC 
ti StF }: s scratchld_ t_device] + 1; 


If there is an allocation class device name, the name of the host in 


bas 31 s after og feyice name, right just tied. For example, we want to see 
S255$DUA19: (LUST) 
iF .S$BBLOCKCscratch{d_\_devchar], dev$v_fod] 

gscratch(d_t_allocis) NEQ 0 


ee ed ee ee ee ee ce ce ce ce a ce ce ce ce ee ee a ee a ee ee ee ce ce ce a a ee ee a a ee ee ee ee ae a ed ed ed 


NO PPADS BBP LLL EE 


ve eeretch t_host shone): 

arg st y = hlén + 

~s - tl n) + .arglist(0); 
i sarglist(t), ge? =, 


= 
n c° en+i)) > ~ 


BEGIN 
oe i. gee "!AF*, arglist); 


ange! st 


! Zero the length 


Length of beginning, devname plus blanks to fill 
Length of pest name 
Get the host 
Get the est. apne Length into a temporary 
Device name + host name + parentheses 
Count of wens between device and host (at least one), 
Total pengen 
Move the device name to the sor "ee buffer 
adding poaces for right justif 
Add the lef ‘ parens 
Move the primary (or only) host name 
after the left parens 
Add the right parens 
Pass Bho new length 
And t ne by buffer 
If it s too big for our area 


cation 


Print the names on their own Line 


so that it will not print again 


+ 


r bistfo2. 
ene 

LSE IF . Hae aa bs b dev Pay EQLU d 
HEN showsw rite_lineT asc d 5" Le arg 
rit 
tA atistto Nane Status Name Size Number 
ELSE showSwrite_ Line aeeigengt rie orgtisel02. > | 
| 
| 
| 
| 
| 
Q | 
4 | 
3 


ifcdeoct9ge 01:35:57 Yancy Olena y4no-74g, | Page 


=F 4 


wr 


w 


ar Uste = y A vector; t descri tor 
shou an sss eRCtor acy l_devchar], dev$v Ley ! Make a temp rg Be the ‘‘mnt’’ bit 


i If the device is online, see if we can expand a more meaningful string 
if; SeBLOcKCscratchd.t_sted. 0, SBITPOSITION(ucb$v_online), 1, 0] 

BEGIN 

: If the primary host is not AVAIL, then call it ‘‘HostUnavailable”’ 


it NOT .scratch(d_v_host_avail) 
THEN add_to_list (ptr, Hos tUnavai lable’ - 16) 


Disconnected terminals should say so, rather than ‘Online det" 


éLse IF -SBBLOCKCscratch dl -devchar2) dev$v_det] ! detached from physical 
THEN add_to_list(ptr, ‘Disconnected’, {6) 


—_ 


ad a ot 
OOONAUE WIN 


If SET DEVICE /NOAVAIL was done, then call it ‘Unavailable’ 
ELSE IF NOT .$BBLOCKCscratch 


fovgher? dev$v_aviJ 
THEN add_to_list(ptr, 3) 


d_t 
Unavailable 
! If mount verification found the wrong volume, mark it ‘WrongVolume”’ 


wr 


ELSE IF -SBBLOCKEscratchCd \_stsl], 0, SBITPOSITION(ucb$v_wrongvol), 1, 0] 
THEN add.to_list(ptr, ‘WrongVolume ', 16) 


WODODODOOODOOOODODODDODDODDODDO00O0O 


| 
END; | 

; Fill in the status and characteristics buffer 
tr = desc torl0 ! initial ize the descriptor pointer | 
se vectortt) = sputter: i “and the first descriptor > Sad 
! and say no coogiee ng b one 
: | 
| 
5 | 
5 
4 | 
; | 
| | 

4 


ee ee ee ek ee a ea a a a ed ad od od = = I 


8 
0 
i ti 
5 ; If the volume is undergoing mount verification, mark it ‘MntVerify’ 
5 ELSE IF -SBBLOCKEscratchCd_l sts], 0, Spi poesetbentustte satvertp?, 1, 0) 
: § e EN add_to_list(ptr, Mount Verify 
320 i If the volume is not valid AND mounted, then it has failed mount 
4 verification and it should be marked ‘MntVerfyTimeout’’ 
308 1 ELSE IF ((NOT .SBBLOCKECscra cite, l oSts3, 0, SBITPOS TIONCucb$v vel id). 1, 0)) 
944 ; AND .$BBLOCKLs reccate Wchard, dev$v_mntJ) ' floun 
36 ; AND — d_b coe devae EQL aqb$k_ ttwi) 
94 5 scratch{d_b_a bs EQL aqb$k_f1iv2)) 
3e8 $ THEN odd.to_itectere tAntvce it 4 eter *¢ 1673 
930 § If the volume is mounted, then call it “Mounted” instead of ‘Online mnt”. 
326 0 ELSE IF .$BBLOCKCscratch(d_l_devchar], dev$v_mnt) 
33? , THEN 


| 
BEGIN | 
| 
| 


ibcdeoct9ge 01:35:57 yanct eLiencsz yeno-74, Page ae 


show_mnt = false ! Don’t show the mnt bit again 
add. fo “listiptr.: *Mounted', 16) ° 


4 


Sz 


i 
: Otherwise just call it “Online” 


383 ELSE add_to_list(ptr, ‘Online’, 16) ! Say whether online or 
' 
+e) : Nothing else matched, call it offline 
266 ELSE ; 
‘ add_to_list(ptr, ‘Offline’, 16); ! offline. 


, om that the major status is set, explode any other interesting bits 


vj SRLOCELe ratch(d_l_devchar ev$v_ spl) ! Spooled 
meee -f0, list(ptr.” *“spooled Ab sey3 ° _ 


H 1 

3 1 

3 1 

3 1 

r} 1 

r 1 

3 1 

3 1 

$ 1 

3 1 

3 1 

r 1 

3 1 

3 1 

3 1 

3 1 

; i 

: 97 1 show ! Mounted 

: 9746 1 THEN add~ = List(ptr, *° mounted 

; 975 1 If . SeeLOcKEseratcht¢_|_¢ devehar’, be viv dat] ! Marked for dismount 

; 97 1 THEN add to List(ptr, ismoun 

3 WF 1 IF sBaLOKCscratchd.devenar "devSv alti ! Allocated explicitly 

3; 97 1 THEN add to_Llist(ptr, * alloc’ 

; 9 1 If .$8BLOCKkes ratchtd_t ~devehar}, devov_ for] ' Foreign 

. = 1 THEN add tot ot tote *“foreign', 

; 981 1 if PbacOcKEscraccht d_ t devchar), oe _swll ! Software-writelocked 

:; 9 1 THE st(ptr si" tlek’, 16); 

3 384 } eyeeretet b "clan EQLU dc$ _journal 

3 985 1 BEG! 

; 9 1 If . -SBBLOCKL scratch(d. tasts}. 9, SBITPOSITION(ucb$v steadno) . 

; 9 1 ven add_to_list(ptr, ! Delete nding (for RU Jeurnats. 
; 9 1 SBBLOCK KUscratch(d_y w atevsis %, $81 TPOSITION(ucb$v_jnt_cls) J 
; 989 4 ae odd to_list(pt 8 ); 

; 990 4 - SBBLOCK KUscratcntd_ Po adevgts 6, SBITPOSITION(ucb$v_jni_slv), 1, 0] 
; 991 1 HEN add to List( ptr, '- ); 

3 99¢ 1 . SBBLOCK KEscratch{d_ w devsis) 6, SBITPOSITIONCUucb$v_known_jnl), 1, 0] 
: 99 1 THEN add_to_list(ptr,-' knw’, 16) 

: 33¢ } ELSE GIN 

3 pa] 1 IF ,$BBLOCK(Cscratch(d_l_jni_char], 0, SBITPOSITION(vcb$v_jni_tmpfi), 1, 0] 
; 99 1 THEN add_to_list(ptr, ‘tf’? 16) 

3 338 ! EL st add_to_list(ptr, ° pf", 16); 

3; 1000 1 If , alocetseratchtdy.d wd ysts?. 0, SBITPOSITION(ucb$v_perm_jni), 1, 0) 
: 1001 1 THEN add_to_list(ptr,”' at 

3: 1 § 1 ELSE add_to_list(ptr, ° 3 .. 195 3 

3 1 1 END; 

31 1 

3: 1005 1 ! 

8 : ' : Miscellaneous data 

3 : ! arglist(3) = .scratch(€d_w_errcnt); ! Error count 

: 101 1 ' 

3; 101 1 ! Check to see if a long (mot FULL) display 


_ a 


K 11 
04-600" 1eoSep-toee 2:09:26 EeCiUT SRE SsnooeveRT-682;1 Pee ai 


' 

if ¢ sceerengcecdece vel o38) EQLU es stisk ! If mounted disk, 
OR et 28 4 b_devclass ey d ae & ! tape, 
AND ScFatch(d_l_devchar v sine?) 
OR seretentd © develags’ EQLU Ay ournsl ! journal, or ... 


> a 


CNAME WN “OOD ONAOULS Wry 


Print out the volume Label and other crud. 
: arglist(s] = gngracen d. t_volna 


If .scratc b_deve ss] elu. dis disk 
feaere ‘- ~b_ dovclees EQLU dc$_tape 


oral tet ae = .scratch({d_\_free); 
arglist(7) = .scratchid-w-trans); 
arg List(8] = .scratchld “womcountd; 


Put in disk/tape data 


Free blocks on volume 
Transaction count 
! Mount count 


SBLERRENLSSSLSRRANLS 


ANE BES PUES PANNE BEM BB EF EWAN BPE BBB FAA EP 
m ise] 
— m 
a 
— 
2 


! Put in journal stuff 


Mwy 


orgt iste) = -scratch({d_w_ SS ! Buffer size in blocks 
seqno 


— -scratch(d_l 


i for disk and journal, the volume Label is 12 characters long, while magtapes have 
! volume names that are only 6 bytes long. Oh well... 


Thence ns b_devclass] EQLU dc$_disk 


a RD A 


UENO OONAUE WN "OC OOVNOUS WN Oo 


WnMr—oO0 


~ 


i org: ist cb$s _volname ! Volume Label 
ar s 
showSwrite_| Aa "!Q3<!AF!> !16AS !SUW !12AF !9UL!6UW!4UW", arglist): 


END 
i 4 IF .scratch(€d_b_devclass]) EQLU dc$_journal 


fF EGR cont) OR .scratch(d_v_remote_mounts] 


=—OO@arnou 


wr 


BEGIN 
IF .scratch{d_b_cont] 
THEN 


RU —O OBO RU 


BEGIN 
arglist(4) = ucb$s nam; ! Journal name 
showSwrite_lLine(ZAS 1D TTD ScIAF > '16AS!+ !18AF !4UL '10UL", arglist); 


ELSE showSwrite_lLine(ZASCID ‘!23<!AF!> !16AS", arglist); 
LSE 


iF ei ratitt 

iy + N arg gt ist te “¢ “avlss, vollbl ' Volume Label 
arglis 
showSwrite_l 4 TASEID "H23<!AF'> '16AS 'SUW '6AF 'OUL !6UW!4UW" ,arglist):; 


PREP E ER EPR E EEE R PEPE EEE EEE EEE EEE EEE EEE EEE EE EEE PMMA 


Fk el tk ed el 


OunFwny—o 


el ek tk aed a i a at 2 2 = 2s SS 2 2 SS 2 SS SS SS YO YY SS 
ee ee me ee ee ee ee ce ee ee Be ee a ee ee a ed td ad ed = = = 


se 


: 


2 


eee . 
Sh ss os a ta 


FES 


mo WS 


é5 


Sonor 


PLES 


hd dt tn a tt 


SELLE EES 


NTN ST 
soooFfo 


NErorvuin 
FrmOOWOS 


MONS 
o-Oof£oO 
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ELSE 


showSwrite_Line(ZASCID "!23<!AF!> !16AS !SuW', arglist); 
1 
Print out any additional information required. 


incr FROM 1 T0 7 DO 
BIND otc ing = desc_vector(2*.i] : VECTOR; 


IF .stringlO) NEQ 0 
THEN shoudyr te. (ineCHAscip "!23< !> !16AS", ZREF(string)) 


HF 5 EXITLOOP 
ND; 


RETURN; 
END; 


«PSECT SPLITS,NOWRT ,NOEXE ,2 


8 8 5 3 9 7 ; wy 4: P AEN: Wttatl ovtes Device \ 
: : ; : 8 oh ASCII \ Error Volume Free Trans Mnt\ ; 
To ; a ; ofte 0. 8 P.AEM: .LONG 17694800 

0 0 65 6D 61 e 0 OOc14 P.AEP: IASCIT'\ Howe Status ‘i 
TELEEEEELS 4 
20 29 0 26 20 24 20 29 cis eASCII \ Count Label Blocks Count Cnt 

B0000000" Gosgs °°" “ADDRESS PLAEP. 

5 63 69 7 te 46C P.AER: .ASCII \Device Device x 3 

THE : Pees : 
2 4 re] : t ASCII me Journal Buff Cur. Sequence- 

, & es = - 433 ASCII <0> 

og ie Bie Settee mae a 
: : ; : | e ASCII \ Name Size Number \<0> 

* D OA ; 
ui i See NT Sagat 
30 30 38 $3 $3 68 26 8 33 8 P.AEV: .ASCII \Device Device 


suongyea iScbeont9ee 05:35:87 YACHT oLtescsz yeo-74g, | Page, Fs 
"PRRA THAD E BY aa yigmoo 
SOOT Gompe  e 
wo cme RRR tee RP 
65 6C 62 61 6C 69 61 76 61 GE 55 74 730900 oes ieee RES Lable\<0> 


SOOO OCOOOOSGOOOSCOCSOGOOOOOOOOOOOOOOOOOOOoOe 


DDD DP DPD DPD PUPP VSVUSVSUSVS USSU USUSUSISIOSUSIUSUSOOSIOSUSIOSIOSIS 


A 
01060 A, P.AFA: LONG 17694735 
0000000" 005A8 ADDRESS 

64 65 74 63 65 GE GE GF 63 "Sos be 008 AC P-AED: | ASCII iblassggecten 

0900000" QO38C “ADDRESS P.AFD 

00 00 20 20 65 6C 62 61 6C 69 61 76 61 6E 6 P.AFF: cASCII \Unavailable \<0><0><0> 
010600 DO P.AFE: .LONG 17694733 
0990009" 00504 -ADDRESS, P. AFF 

00 00 20 20 65 6D 75 6C GF 56 67 GE 6F Dg P.AFH: ASCII \Wrongvolume \<0><0><0> 
010600 EB P.AFG: LONG 17694733 
0990000" o05é¢ -ADDRESS P. AFH 

00 00 20 20 79 66 69 72 65 56 74 GE 75 GF 4D OOSFO P.AFJ: ASCII WountVerify \<0><0><0> 
01060000 00 P.AFI: «LONG 17694733 
00000000° “ADDRESS, P 

75 GF 65 6D 69 54 79 66 69 72 65 56 74 GE 4D 00608 P.AFL: -ASCII \itVer i fyTimeout\ 

: 


0106001 P.AFK: .LONG 17694736 
000000 ;ADDRESS P 
00 64 65 74 6€ 75 6F 4 P.AFN: ASCII vawtissh> 
005 PAA: OMe ESS POA 
00 00 65 6E 69 E P.AFP: -ASCII abspsge<m 
Pn en WL 
00 65 6E 69 6C 6 P.AFR: “ASCH rBi tL ine\<O> 
1648 PLAFQ: -LON 
064 ODRESS P.AFR 
64 65 6C 6F 6F D6 P.AFT: .ASCII \ spogted\ 
64 65 7% 6E 75 226 PLAFV: “ARETE \ someted\ 
ES Poa oc ae 
00 00 00 74 GE 75 6F 6D 73 0¢ 6 P.AEX: “ASCII IzBgaygyne\corcorce 
67 P.AFW: LO NRESS 
00 00 63 6F 6C 0¢ P.AFZ: “ASCHT valtgs\<O><d> 
40 P.AFY: 
6 MR ESS. P.AFZ 


Pete Se Se Ge Se Ge Se Se Se Ge Sets Se Se Ge Ge Ge Ge Be Ge Be Ge Ge Ge Se Se Ge Ge Be Se Ge Se Se Se Ge Be Ge Ge Ge Se Ge Se Se Ge Se Ge Se Se Be Be Se Ge Se Be Se Se 
Eee 


a | 
B= 


6E 67 69 65 72 


00 68 63 6C 74 


6C 


73 


76 


77 


00 


zz AT ee i.COPFHH ST OMT OOS 
ee ef 7 ef ee ef oe ef 


00 


00 


00 


eASCII = \W!4UW\<0><0><0> 


"LONG 17694765 

“ADDRESS P.AHB 

"ASCII \!23<!AF!> !16AS !SUW\ 
.LONG 17694740 


“ADDRESS P,AHD 
ASCII \!23< !> !16AS\<0><0><0> 


4 01:35:57 AX-11 Bliss-32 V4.0-74 P 
382 9:33:35 fet rure sre SHopeveaT B82:1 a 
ASCII \_foreign\ : 
tong! }769e328 : 
ARETE N uattek\<O> , 
° w é 
AsedT hogs ' 
PTE FA ; 
Ashe }7884d26 : 
“ASCII \ é $\ : 
e SlV 3 
LONG b72std26 : 
“ADDRESS P.AGJ : 
“ASCII. \_knw\ ; 
“LONG 176947246 ; 
“ADDRESS P.AGL : 
“ASCII. \_tf\<0> : 
“LONG 17694723 : 
“ASCE \ pt ve0> ; 
“ADDRESS P.AGP : 
“ASCII \ pi <0 : 
“LONG 17694723 : 
“ADDRESS P.AGR : 
“ASCII \ £1\<03 : 
“LONG 17694723 : 
“ADDRESS P.AGT : 
“ASCII. \!23<!AF!> !16AS !SUW !12AF !9UL'6UW!4UW\ ;: 
.LONG 17694760 ; 
“ADDRESS P.AGV ‘ : 
“ASCII \Lg3< IAF > '16AS!+ !18AF !4UL '10UL- 

\<0> : 
.ASCI 0» : 
"LONG 17694758 : 
“ADDRESS P.AGX : 
“ASCII \!23<!AF!> !16AS\<0> ; 
.LONG 17694735 ; 
“ADDRESS P.AGZ : 
“ASCII \!23<!AF!> !16AS !SUW '6AF 'QUL'6U\ : 


12 
1E-Sep-1964 01:55:57 YaNett BL iag=32 y4.0-74g, we 


SSSSBBB. EGHES MAME Beas FRU oe 


«PSECT SCODES,NOWRT,2 


OFFC 00000 ENTRY Reels. grit. Save R2,R3,R4,R5,R6,R7,RB,- = 1162) 
58 CAS OC 3 MOVAB AD 10. T0 LIST RIN, R11 : 
E FAES ce MOV 0385 : 
cO AD 0000" (CF 0040 $F mMOVC P. net DESC_VECTOR 11 
8 4 At D 1 MOVL scRAr H, Rg 3 1197) 
C Fe ‘ 1 BLBC 6(RB). 1 : 
44 AE 9F 0001 PUSHAB CLUBUF + 1199 
58 DD PUSHL R F 
000000006 99 02 F CALLS #2, SCAN_CLUSTER_LOCKS : 
08 aC D 1$: VL FLAGS, R2 : 1206 | 
3 DO 0 D PUSHL ; 
dD F PUSHL R ; 
OOAD CB 9 Fe 1 CALLS #2, + GHECK MNT_ALL F 
1 3 0 BLBS RO. 2$ ; 
4 00 RET ; 
53 01 A 03 gt BBC #3 1(R2) :1 2 
0 78 Ag 4 0 cHPB 126(R8), in” + 121 
02 78 Ag 91 C 120(R8). #2 : 1216) 
10 12 BNEQ 4 : | 
08 AE OF PUS ARGLIST : 1221) 
0000" CF 9F PUSHAB P.AEO : 1219 
10 AE OF PUSHAB ARGLIST ; 
0000 cf OF PUSHAB P.AEM + 1217 
5 11 BRA 3 
Al 8F 78 As 91 CMPB  =s-«W20(R8), #161 : 1222 
10 12 BNEQ : 
AE OF PUSHAB ARGLIST : 1227 
0000" CF OF PUSHAB P.A t 1225 | 
AE OF PUSHAB ARGLIST ; 
0000" F OF PUSHAB P.AEQ + 1223 
— 11 BRR : | 
08 AE OF PUSHAB ARGLIST : 1232 
0000" CF 9F PUSHAB P. ; 1230, 
1 E oF PUSHAB ARGLIST ; 
009 ' CF OF PUSHAB P.AEU : 1228) 
AE 9F PUSHAB ARGLIST : 
0000" CF 9F PUSHAB ASCID_NULL : 
0 06 09 FB CALLS” #6, SROVSURITE LINE : | 
ea BA B1CB ; 1333 | 
B AE AS 9A MOVZBL gcRB) RE AGLIST + 126 
AE 07 DECL ARG Si F | 
Oc «AE AS 9E MOVAB 9(R8) manger" > 1241) 
5A 0 AS OF MOVAB V12cRe) 3 1249 | 
62 6A OF €E BBC #14 enfoy. F | 
54 rr b3 oral je op + 1251 
9 1¢ «AB OA MOVZBL 28(R8) :1 | 
50 33 08 AE C1 ADDL APSLISf, ie RO : ~ 


yfcdeo-toge O1:35:57  yaRctt OL ing=52 ye,-74g, 


tt SvBL TLEN, “#22, RO 


50 Jr tes i 


i} oe 
Oh es Bn 
57 20 oc «BE AE f ¢ moves. AR ARGLIST, oar -~ #32, BLEN, NAMBUF 
FF D 
FF28 CD47 MOVB ., NamBuUE CBLEN 
FF29 CD47 5 f D move 29(R8) F+1CBLENJ 
FF27 CD4 9 Pf MOVE ML, 2a F-{CTL nay 
8 AE 6 EA MOVL TLEN, wr IST 
C AE FF28 CD é MOVAB NAMBUF ARGLIST#4 
ot nC 
08 AE 9F O00F9 PUSHAB ARGLIST 
0000" CF 9F OOF PUSHAB P.AEY 
000000006 00 2 FB 001 CALLS #2 SHOWSWRITE_LINE 
08 AE p4 01 CLRL_  ARGLIST 
04 AE C0 AD 9E OO10A 9S: MOVAB DESC VECTOR, PTR 
C4 «AD FF68 CD Hi 10F MOVAB FFER, DESC_VECTOR+4 
0009" CF ps 0115 CLRL Pe ADI ING_BLANRS 
10 AE co OA 0119 MOVAB OD VECTOR ARGLIST+8 
53 6A of 1 EF oi) EXTZvV # 10), SHOW_MNT 
0088 § 1 MOVAB 130tRB) R2 
7 é E1 001 BBC 4, (R25, 18$ 
0 06 =A 1 £0 0012¢ BBS 4(R85, 10$ 
0 DD 00131 PUSHL ne 
0000" CF 9F 001 3 PUSHAB P.AFA 
11 001 BRB 
08 7% As 1 €1 00139 108: BBC #1, 116(R8), 11 
10 DD 001 PUSHL #16 
0000' cr 9F 0014 PUSHAB P.AFC 
11 00144 BRB 19$ 
08 6A 12 €0 00146 11$: BS #18, (R10), 128 
1 bb 14A PUSHL #16 
0000° cr F 0014¢ PUS P.AFE 
11 ot BRB 19$ 
6 83 152 128: TSTw (Re) 
18 001 BGEQ 3=s«13 
10 pb 1 2 PUSHL #16 
0000" CF 9F 001 PUSHAB P.AFG 
46 11 0015¢ BRB 19$ 
08 62 3 £1 0015E 13$: BBC #14, (R2), 14$ 
Bp 16 PUSHL #16 
0000" CF 9F 001 PUSHAB P.AFI 
A il 168 BRB 19$ 
1A 62 EO 0016A 148 BBS #1, (R2), 16$ 
24 6A 1 gt 1 BBC #19. (R105, 17$ 
01 009D ¢ 1 C 157(R8), wi 
13 0017 BEQL Ss 
02 009D 91 00179 CMPB 4=s«a157(RB), #2 
12 001 BNEQ 16$ 
D 00180 15$:  PUSHL #16 
0000' cf F 001 PUSHAB P.AFK 
: 1 001 BRB 19$ 
OA 6A 13 €1 00188 16$: BC #19, (R10), 178 


a a — 


iedeon196e O1:35:57  yaRctt BL ing= 52 v4,0-74g, 


35 bb Boise sistu sie 
0000" CF PUSHAB P.AFM 
1 BRB 19$ 
D 17%:  PUSHL #16 
0000" CF 9F PUSHAB P.AFO 
1 C BRB 19$ 
D 18$:  PUSHL #16 
0090" CF OF PUSHAB P.AFQ 
C Ar F OO1A4 19S PUSHAB PTR 
68 Fe DOTA CALLS #3, ADD TO_LIST_RTN 
oc 6A DO1AA BBC i) (R10), ~20$ 
D PUSHL #16 
0090" CF OF PUSHAB P.AFS 
. 4 50187 CALS. ase ADD_TO_LIST_RTN 
oe 5 E BA 208: BLBC SHOwW_MNT, ais ‘ 
D 00180 PUSHL #16 
0000" CF 9F 001BF PUSHAB P.AFU 
OC AE 9F 001C3 PUSHAB 
68 9 é C6 CALLS #3, ADD TO_LIST_RTN 
0c 6A E C9 21$: 68BC #21, (RTO)> 228 
10 DD 001CD PUSHL #16 
0090" CF 9F OOICE PUSHAB P.AFW 
Pa 0: ee cae ee 
0c 6A 17 €1 3 228: ¢ 438, (RTO) > 35° 
10 bp DD PUSHL 
0090" CF 9F OO1DF PUSHAB P.AFY 
C AE 9F OO1E3 PUSHAB 
68 0 FB ES CALLS #3, ADD_TO_LIST_RTN 
C 03 AA E £9 23$: BLBC 3(R10),~248 
10 BD ED PUSHL #16 
0000" CF 9F OOTEF 5 P.AGA 
OC AE 9F O01F3 PUSHAB PTR 
6B 03 FB Fé CALLS #3, ADD TO_LIST_RIN 
0c 6A 19 €1 001F9 248: BBC 423, (RTO)> 25$ 
10 BD FD PUSHL #16 
0000" CF 9F OOTFF PUSHAB P.AGC 
OC AE OF 3 PUSHAB P 
68 9 Fe CALLS #3, ADD_TO_LIST_RTN 
3 258: CLRAL 
Al BF 78 «AB O91 CMPB =s-«<W20(R8), #161 
7 iF BNEQ 34$ 
D 1 INCL 3 
0c 62 A £1 00214 ¢ #10, (R2), 268 
0 DD 00218 PUSHL #16 
0090" CF OF OO2TA PUSHAB P.AGE 
C AE OOF If PUSHAB PTR 
03 FB CALLS #3 ADD_TO LIST_RTN 
0090 i 26$: MOVAB 144(R8)7 R 
0c ra © BBC #6, (R25, o7$ 
10 0D D PUSHL #16 
0090" CF OF PUSHAB P.AGG 
C AE OOF PUSHAB PIR 
68 0 Fe CALLS #3, ADD_TO_LIST_RTN 
62 9 27%: STB (Rd) 
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“Ohm noSs OF 
3 PODS 8 NOH HOI NO oo NO ow MOOD 


we 
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t 
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GRSESLASPEGASRFELSSUAPESIRE 
ONO OOor 


“ooo -0-0omm 
Sea Pod 

mn 
DOvwn"do Pras 


“rn 


o> 


8c 12:08:86 UeCiUt SReSshoot vent -082;1 


tt 

oraee 

Ha ol 
wig 

ise 

aa6 224(R8), 308 


p 
#3, ADD_T T_RT 
fe, (Roy. 388 
wié 


PT 
#3, ADD_TO_LIST_RIN 
146(R8)> ARGLIST+12 


120(R8), #1 
353 


P ] 

_ 
On 
~ 
Ps) 
oo 
~ 


« #2 


9,_(R10), 38$ 
38$ 


(98) ARGLIST+20 
39$ 
(RB), #2 


RB), ARGLIST+24 
); ARGLIST+ : 
); ARGLIST+ 

8), RO 

r6, ARGLIST #24 

p: ARGLIST#2 


WM ON —"$ DOW NING 
MORO: FO bed 


= PPAD 9B FNS VF HD MD BW 


ARGLIST+16 
ARGLIST 


~~ 
+ 
—*> 
-o 


' seers QU:35:52 WAGE ShessHeattebi 7A. 


11 0¢ $ 
19 4080) a} 47$ 
18 AE D6 #18, ARGLIST+16 
0008" F Ot anetl 
§5 1 OC sis 
if ARGLIST 
" CF oF D6 ib 
‘} 
if (RO), 48$ 
18 OR $ oe #6, AncList+16 
18 AE D4 00 ARGLIST#+16 
: ne oF 06 ARGLIST 
¥\ 
a oF 0d ARGLIST 
0000" oF OC P.AHC 
000000006 8 i F #2, SHOWSWRITE_LINE 
50 1 3 #i, I, RO 
co ap40 p ESC_VECTORCRO] 
bE vo noi # DESC_VECTORCROJ, (SP) 
0000" CF 9F P.AHE 
000000006 99 be Fe #3, SHOWSWRITE_LINE 
£0 Fs 28 


; Routine Size: 868 bytes, Routine Base: SCODE$S + 0356 


ERC EN GUSH | a 


: 


3 3 1 Scent ROUTINE display_disk (scratch, flags) : NOVALUE = 

3 1 1 GIN 

3 3 1 

: i 14 This is the display routine for disks 

:1 14 iy 

3 1 i ‘ Bt penaren = contains gexe about the disk 

3 ; 132 : FLAGS = contains info on what to print 

31 1474 2 | Outputs 

3 1 1475 ' None 

3 1 1678 ' 

at i 5 

311 ; 1299 BUILTIN 

3 i 7? : emul ,ediv,cmpm; 

: 1105 14 

3 11 14 scratch : REF SBBLOCK, 

3; 11 14 flegs : REF SBBLOCK; 

at 1286 § LOCAL 

; 1110 16 desc_vector : VECTOR(9] 

; Hig 7 INITIAL(REP 9 OF (0)), 

111 1490 

3 1116 1491 '8 80 byte Lines 
18 

; 1494 

3 ii8 1495 ! Buffer for lock information 
3 111 re | 

Me 1 

; i 2 16 First thing, fix up the scratch area with any available clusterwide info 
: 1126 i if .$BBLOCKCscratch{d_\_devchar2), dev$v_clu] ! If available clusterwide 
3 1125 1 THEN 

3 + $ : scan_cluster_locks (.scratch, clubuf); 

311 1505 2! 

3 i 1 ! Make a check to s sf faLeraree or /MOUNTED was specified. If so, 
3; 71 1 ' then check to ot f the dev mounted/allocated. If not, then 
3 Hi 1 } 4 : don't display information on the Me. ny 

: 11 § 1 10 if NOT check_mnt_all(.scratch, .flags) 

3 Hi : : : THEN RETURN; 

; HH : 18 oe = cstring("Disk °); 

311 1515 

3 i" 1 \$ i Det termine which tye of of nll ae is. If not in the list, then 

g ay : ; mply say that s 

: 1142 1 8 arglistte) = unknown; ' Assume unknown 


T AX-11 Bliss-32 V4.0-74 P 3) 

rive te esi Sea cpt ee tha tia tr tes oe 12) 
INCR { FROM 0 TO.d ru known disk types 

(IF .scratchl "Nookes t e) ea disk t rPebstt,, 

THEN cravencg bo3 “disk. Re #3 Ex xt 

common_display(arglist, .scratch); ! Display stuff common to all devices 


Display some geometry items | 
ir ute = .scratch(d_l_maxblock]) NEQ 0 | 
| 


b_sec 
arglist = .scratchid_w_cyl rs); 
oot ietes = eee d-b_tracks); 
showSwr nevargl glist 0). Total blocks! 20UL Sectors per track!22uW', 


Total cylinders! 17uUW Tracks per cylinder! 20uW', 


MEU 


eae = sSeratent d. 


SSBF AFUNASSSELSEGES 


A ee 


oO 
—_ 


FAR 


4 
: If remote or dual-pathed, then print some more info 


if ,seratchld_v_renote device) OR .SBBLOCKCscratch{d_l_devchar2], dev$v_2p] 


o 
w 


t.yes = UPLIT BYTE {.7es,}- 


PUPPIES BBE BEEPS 


SIRO VSS SIE SFE IS SSVSUFUNSSaNS ARG oO 


i 
8 
71 
Le; = UPLIT BYTE (° 
7 arglist(O) = 15 - .scratch{d_ : oheet name]; 
7% arglist(i) = .scratch(€d_t_host_name ; 
75 arglist = scratchtd_ t oY fame) + 
76 arglist = 
7 arglistl4 cratehCd_ l_host_type); 
8 arglist(5 
arglist(6) = =f, -scratch(d_v host_avail) 
80 i tayes | 
as showSwrite_ Line (ZASETD” . Host name '#< '>"tAF’’ = Host type, available ‘AF, 'AF*, 
arglist(0)); 
5 


if ah ene l_devchar2], dev$v_2p) 


PUPP USSU SUL USUS SUS USUSLUSUSUSVSY SUSI SUSU SSIS SUSU SUSUS ISIS SSTIS SSSI 


8 - sscracch( dtp t_host2 shanel: 
escratch(d t_host2 shane 
cratchtd_ E_fost2_ $41; 
ératchCd_l_nost2_typel: 


(if_.scratch£d_v_host2_avail) 
THEN t_yes 


ELSE t_no); 
showSwrite_line(ZASCID ' Alternate host name !#< !>**!AF*’ Alternate host type, avail 'AF, 
eu arglist(0)); 


arglistl4 
arglist 


oes stro 
srstistte 
arglist 

arg ietes 
arglist(5 


6 


a ee ee eek a a at tk tk at tk a at a 2 9 = = 9 1 4 2 
ee ee ee ec a ee ee ae ee ce ee ee ee ee ee ee ee a ee ee ed ed nd ed nd od ed 
em ee ee et td a a a a dd 8 td = 8 t= ot = = 4 ot Ss — 4 2 


SELESLALLES 


PIR BB DNR BBB HB FMAM BMWNA HANH PIPININININI HANNA MA MIPIPINPINININININIGM. 
ow 
—m 
a 
a 
4 
o 
7 
wn 
us 


ybedeo-196e O1:35:57  yaRctt BL ing=52 ye, 0-74g, 


; If an allocation class is present, display it 
it -scratch(d_l_allocis]) NEQ 0 
NshowSur ite. Line(ZASCID . Allocation class!16UL", scratch{d_l_allocits)); 


] 
: Now for the ACP-dependent things 


wm 


Is it mounted /GROUP or /SYSTEM ? 


ir - $BBLO stfiig's stet b stots). 9; SBITPOSITION( vcb$v_group) .1,0] 

THEN argl stC11) = cstr7 ng Group' 5 

ELSE ocKCscratchl ws ree 0, SBI TPOSITION(vcb$v_system) ,1,0] 
THEN Soliet 11 . “estringt ot, 
ELSE ar tigttt) 11j = egtring t pyates ss‘ 
arglistl10 >. (,arglistl11J)<0, i>: 
ie : _cachename 


1 : 
; ies -scratch(d_b_cont) 
1 GIN 
14 rglistct) 5 vebse _volname; ! Start with full volume name 
15 35 DE R idx FROM vc $3 gronnene 00 ! Reduce length 
Hy 9 wo it ,tocrenes tr" “volnan) ; j9x9<0, 8,0> EQL 2C° * ! by she number of 
! 3 ese or Spas J& = .arglistliJ-1 ! tra tin ng spaces 
3 38 —_ at “s bent yotnanee -orgt fetlt 2: ! Adjust field width 
9 arstistte = scratent olnanl; ' Address of volume name 
38 arglist = .scratchtd_ Sry : ! Relative volume number 
arglistl4) = .scratchid_w_ sluster33 ! Cluster factor 
$00 arglist(5)] = .scratch d-watran 3 ! Transaction count 
1 orgt isthe = .scratchid_|_freej; ! Free blocks on volume 
$06 oratiset? = .scratchid_l_maxf lesi; ! Max number of files 
arglis* = .scratchid_w_extend ! Default extend quantity 
one arglist = .scratch(d_w_mcount ! Count of sharers 
en 


MEUM —OOCOBNOUSWN 


ate = + Mount status!#< !>!AC Cache name!#< !>"*!AF'"; 
- rgt stci2y = -scratch(d_t_acpnam); 


ELSE 


a 


OWONAOULSWN—O 


ao ctr = FASC] . Mount status!#< !>!AC ACP process name!#< !>°*!AF’"; 
f if ess = 21 - .scratch{d_t_acpnam); 


weit stl13] = .scratch{d_t qacpnan); ! Process name of the ACP, or XQP cache name 
arglistC! . scratch(d_ft_acpnam) + 


Aan: aatenee null, split. tepac 
argtistfo Be 0) Volume Label!#< !>''!AF Relative volume number!17UW", 


* Cluster size! 20uW Transaction count! 22UW', 
argl ae de 


ek ek ee ee ed ed nd ed a a = ot = a = td dt 


SURUN ISS Oe NERO 


ee ee a ak ak a a et td 8 a at a 8 a st 8 ot 8 = = 8 9 2 9 2 


GDOAPAOAAAAAAAAAA AAA AAAAAO 


ANNAN AAI BBE BF BAW AA AAN AAA AAA AAA FB AAUIPSPUPIPINIPIPIPIPONINPINP 


ieee O1:35:57  YAKGHT BL ieg=82 v4.0c742, | Page, 45, 


} 
} 
| | 
| : 18 - re oe 6), Free blocks! 21UL Maximum files allowed! 18uUL', | 
| ; 1 £aecip Use — Extend quantity! 17UW Mount count! 28uW', 
| ; 16 arglis (8), 
| ; argitsttio3); | 
3 1 | 
: 186 ; Now for special bits. 
; 1 tr = desc tor(0] 
; 1648 a vect tort ti = utter: 
; 164 add_to ot its er, Volume status: ' iNote trin len th i checked later 
; 1968 IF Heat btteeeranencl b.sta used, 0, Seitrb ASITION (vcbbvjno : ver) «1 
3 164 THEN @ ol stipe. $s ubject ¢ hyped ne 
3 1929 IF sreod te Tintiore -b. st = ° ,$81 TPOSI TION vebSv eal i 1,0] 
3 19 THEN to t(pt pr aory hens block is bad,’ ); 
$ 1 § if _S0auocKTscrarcntd_ b.st tusJ, ,581 TPosiTion(vebsv gigtherbad). 1,0) 
3 16 HEN pr rect, index file header 
; 1654 IF .SBBLOCK scratened_p. Status 0,$81TPOSITIONC vcbSv_ proatloe),i.0 
3 1635 THEN add to List(ptr, ' allocation inhibited because of error on , 80); 
3 16 $ F NOT. OCK(scratch{d_l_sts], te hag theese pag Hy unload), 1,0] 
3 165 THEN add_to_Lis t(ptr, ' dd hot unload on dismount,’, 
; 1998 if ,scratchta_ b _aqbtype) EQL aabsk _filv2 ! If ODS-2, find some more 
; 1660 BEGIN 
; 1661 4 ' 
3 1996 & ! Get ODS-2 specific information: caching, mount verification, and | 
; 1oo7 2 : expiration dates, erasing, high-water 
; 1665 4 ir _SOGLOCKEpgragchtd. b_status2], 0 ~ ta rat | repent erase) ,1,0] 
3 1668 4 a Be edd ont ptr, ' erase on delete 
3 1667 4 esSc0 K scratch(d.b bast tus 8361 p08 1 10m<vebsu _nohighwater).1,0) 
3 1o38 4 THEN” Lad to_list(ptr, highs h-water mark He 
3 166 4 IF .$BBLOCKEscratch(d_ b. 4p TPOSITI (veb$v_ nocache) ,1,0) | 
; 1670 THEN odd_to_tistiptr,-*-eaching {s disabled". 80) 
3 167 BEGIN 
; 1674 temp : VECTOR C2, LONG], dummy, Limit; 
: 1972 IF eae VEST? -scratchld_w_ exteize)) EQL 0 ! Extent cache size 
; i Seti. = arglist(3] = 0 ! No extent cache, zero for all fields 
| o 
3 16 6 
| 3 1 6 rat isttt3 = by sear w_extlimit); ! Extend to longword (Limit in percent_free/ 
; 1681 6 stil. s scratentd | t fre giREF (OD. temp): 
: 1 DIV canbe . argli Ci, ‘dunn Store Limit in arglis 
: ' end ListC3) = wscratentd e "erttota 4; ! Blocks currently in extent cache 
; 1685 are! nb a} = Seratent q _W ¥-quos ze): ! File ID cache size 
| 3 1 arglist scratch si ' Quota cache size 
| 3 ' arglist(5 = ‘perateht ¢- - “Bir rent ' Cache buffer count 
| : showSwrite satan — to 03, Extent cache size! 15UW Maximum blocks in extent cache!9UL', 
° 
| 


vor-000 if Feoctoge 3:58:26 Et TUnSRESsHootveRT 882: Pane 135 
et D 2. File 1D cache size! 14uUW Blocks currently in extent cache!7UL', 
Quota cache size! 16UW Maximum buffers in FCP cache!11uUW’, 
J _j®bayocxtaeratcRtasp. b. staius23, 0.sei TPS EVION vedo, wri ethru), 1,0] 


N add_to_Llist(ptr, te-thr caching ena 
USE add_to “tistiptr, ° er heeheak kook ng wsesledst ° ‘aby’ 


' 
If a retention min/max are specified, then output them. 


iF CMPA(2, scratch(€d_q_retainmin], UPLIT(0,0)) NEQ 0 
BEGIN 
LO 


SRLS SRLSREANS 


NONE UN OOOO 


7,WORD), 


AL 
_ tim : TOR 
TOR if wORdJ; 
min, 


vE 

ax tim: VE 

SNUMT IMTTIMBUF s 
IMADR = Scrat hed -a_retainmin]); 

SNUMTIM(TIMBUF = max 

MADR = iat. _a_retainmax]); 


BSSRBVERRENVLS 


arglist 0) = .min_ti 

arglistl1] = oy 

showSwrite_line( ins 5 owes Min ret. period (days) !10UW Max ret. period (days)!17uUw', 
ar 

END; 


SS 


FS us tt te 


, snore. Line(ascid_null, arglist{0]); 
' 
Output the special bits, if there are any. 


if -desc_vector(0 wee y * penal Volume status: °) 
wen ie INCR i FROM 030 


if -desc_vector(2*(.i+1)] EQL 0 ! On the Last string change the final 
THEN i “comma to a perio 


Mun DWONAVUFWN “QO OONAUL wry 


BEGIN 
BIND 
str = .desc_vector((2*.i)+1] 


pe dot = (str+idesc _vector(2*. 14. 1) : BYTE; 
ot = ° *s 


arg uit 0] = desc_ve 
sheusur te_ Line (SKC 
If .desc_vector(2*(. 
THEN EXITLOOP; 
Ps 


arglist); 


ee ee ee ee ee ee mm me me a ee ee ed ed 2d ed = od = 


SN NNN 


SELLS 


& 
& 
& 
& 
4 
4 
END; 
' 
; Separate the special and node information by a blank line 
4 
4 
| 
4 
& 
& 
& 
ie 


i Let them know if it is accessed elsewhere 


i 
ee ————————————— ——————————————————————————————— 


So 8 st 


~~ 
PUPS E® 
NOUS UT —O0O@ 


—> >) sd dt dt 


-Sep-1 
1$-t¢ Sep-1 


‘ 
cluster_nodes (.scratch, clubuf); 


7 
H Show any access control List which might be present 


show_device_acl (.scratch); 


RETURN; 
END; 
SPLITS,NOWRT ,NOEXE ,2 
000000004 ore P.AHG: 
20 68 73 69 44 03 3 P.AHH: <g> \Disk \ 
6— 77 6F 6€ 68 6E 75 0. ‘ P.AHI: <7>\unknown\ 
$5 20 74 or ¢ : 3 ; 3s C P.AHK: \ Total blocks! 20UL Sectors per tra\ : 
4 
00 2 g $3 3 1 1B oo8s ie Sand Vneeazer 
80060000" 00 26 P.AHK ; 
gs 5 4 3 31 3 $8 2 ? a83 P.AHM SCII \ Total cylinders! 17UW Tracks per c\ : 
9 8 2 2B Se Be ssc wtingerszom 
S85985- BRRE Po Als No pega 
73 6 a3 Bag P.AHN I \yes 
6F 6€ 20 aah P.AHO ; no\ 
u 73 . $8 8 3 8 8 OBB P.AHQ \ Host name 'a< t>**tar’® Host t\ : 
4 * 6F 4 0 ; 3 pace 
$3 $i 8 61 20 f 3 29 29 tty \ype, available 'AF, !AF\ 
0106904 opr P.AHP: .LONG a So re 
00000 if OBrs -ADDRESS, P.A he: ; 
2 $3 ep of et : 90 : are P.AHS: .ASCII \ y one host name !&< !>°'!AF \ : 
2 : 73 é3 oS ef dj ; p ASCII y Sitorncte host type, avail 'AF, !AF= 
46 41 21 $6 $ 46 41 21 4 
4 ; F 48 P.AHR: . 17694799 
0000000° rt ADDRESS P.AHS 
$3 A gs gf 41 $9 2 33 P.AHU: .ASCII \ Allocation class! 16UL\<0><0><0> 
1 21 73 Cc F 
i 8 : 346 P.AHT Sa 
é3 9 OS : ‘ Bre pram: <ASEHT G23 \Group\, 
73 % 63 6F 72 3 5 981 P.AHX Sclil Ds SN ESSAY 


Bbc 93:58:36 Hee UT sae isnsneveRr 6$2-1 


womown 


wun 
UAwne On NANO NANO 
Vhn~no —anowH 
WOus ooonu 
mm 


FASS 


Ones 
ww 


- 


on 


2s «6S 


ro 


So 


ono 


ooo 


oo 


PAM SOMUW NII ANO VIN & NPV VV NIP 


SO FQOOOMNMNFLOONN FS “OO FWM $$ NOOO F NOON CODMOUMOONMUW— "WO 
= 
Oooo 
>>>>> 


oo 
om 
oncom 
oo 
oo 


oo 
o- 
Sco 
oo 
NWVIOWO 


MOM OODMOOo MAM 
a 


u 


ooono 


"Ooo 


ol 
oA 
-AS 


lia 


ASCII 
: «LONG 
eADDRESS P 


ASCII 


ASCII 


LONG 


“ADDRESS P.AIB 
“ASCII \ 


ASCII 


LONG 
ASCII 


-ASCII 


ASCII 


LONG 


AX-11 Oi leg =32 V4.0-7 4g 
CLIUTL.SRCI SHODEVPRT .832;1 


3 
\ Mount status!#< !>!AC Cache name!\ ; 


\A<_ 1>""TAF'\<0><0> 
1769677 70 
\ " Mount status!#< !>!AC ACP process\ : 
\ name!#< !>"!AF’'\ 
17694776 


Volume Label!#< !>"!AF’’ Relative \ : 


\volume number! 17UW\<0><0> 
17694778 


“ADDRESS P.AID 


\ Cluster size! 20UW Transaction cou\ : 
\nt ! 22UW\<0> 
17694767 
P.AIF $ 
\ Free blocks! 21UL Maximum files al\ ; 


\ \hoyeds 18UL\<0><0> 


ADD RES. P.AIH 


LONG 


LONG 
ADDRESS my 
: ASCII \P pr mary home block is bad,\<0> 


ASCII 


“LONG 


: IASCI] \° Extend quantity!17UW Mount count!\ : 


ASCII \ 8UW\ 
LONG 
ADDRESS P 
“ASCII \ Volume status: \<0><0><0> 


ve 764 
AlJ 


17694737 


"  TADDRESS P.AI i, 
“ASCII. \ subject to mount verification, \<0> 


a beta 


17694747 


NG 
DRESS P.AIP 
CIl \ primary index file header is bad,\<0> 


> 
17694754 


N12 
18 =3ep7 188 9bi08:36 eee SAE siSoevesr oS2-1 Page 433 
rf “ADDRESS, P.AIR 


vOe~000" 
25 8 3 8S SF SS 
00 00 


P.AIT: .ASCII \ allocation inhibited because of error o\ 


a8 eASCII \n bitmap, \<0><0><0> 
Qt P.AIS: “LONG Reb 5a3° 

C ADDRESS P.AI 

C 

5 

E 

E 


P.AIV: ASCII \ do not unload on dismount ,\<0> 


P.AIU: .LONG i et ad 
eADDRESS P.AIV 
Hi, P.AIX: ASCII \ erase on delete, \<0><0><0> 


BFC P.AlW: LONG 17694737 
P.AIZ: Ascii \ file high-water marking, \<0><0><0> 


B 
B 
8 
7% 65 6C 65 64 20 6E 6F 20 65 3 


@ 
~~" 
~ 


St 
SEE 


65 74 34 44 3 ge 67 69 68 8 $3 


on 
-m- 


69 
C 67 6E 6 2 6D 
4 68 P.ALY: .LONG 17694745 
0 eADDRESS P.AIZ 
73 69 64 20 73 69 20 6? 6E H 68 63 61 P.AJB: ASCII \ caching is disabled, \<0><0><0> 
00 00 00 2C 64 65 6C 


P.AJA: .LONG 17694741 
eADDRESS P.AJ 


D44 P.AJI: .LONG 17694751 
eADDRESS P.AJJ 
D4C P.AJL: .ASCII] \ write-back caching enabled,\ 


C 
¢ 
C1 
‘ 
& ¢ 
2 tie 
Ete 
68 63 61 63 7% 5 74 78 45 20 C48 P.AUD: ASCII \ Extent cache size!15UW Maximum bL\ 
$$ $8 8) 83 89 (f 3 $i 21 63 7A 69 3 ; tS Paty? poeta 
20 74 6E 65 7% $f $e 20 3 9 23 $3 $9 63 £68 eASCII \ocks in extent cache! 9UL\ 
4c 1 65 68 6 61 C7F 
Se ee rn en Pe 
63 61 63 20 446 49 20 65 6C 69 & : 0 00C90 P.AvF: <ASCII \ File ID cache size!14uW Blocks cu\ 
20 20 20 89 55 34 3 1 : 7A 6 3 $8 8 OOC9F ' = lian ana tay 
5 63 20 73 63 6F 6¢ 42 9 CA 
65 74 44 $3 20 $F ¢? ee He ? bt ? $3 US i cas ASCII \rrently in extent cache! 7UL\<0> 
SURIRS. HEE PAE: ous eng” 
65 $8 63 61 63 20 1 7% ¢f 75 51 20 20 2 ; CDC P.AJH: ASCII \ | Quota cache size!16UW Maximum buf\ 
4D 20 20 20 20 5} 36 31 «21 $3 A CEB 
5 20 6D 75 $9 $9 78 61 OOCFA 
63 61 63 20 50 43 46 6E 69 @0 ‘ 6 D04 sASCII \fers in FCP cache! 11UW\<0><0> 
00 00 55 31 31 2 6 $ D13 
01 508 $25 P.AJG: LONG 17694782 
§ : 03 P.AJJ: ASCH \ write-through caching enabled, \<0> 
He 
48 
5 


SOOSGSSOGSSOSSOSSSSSSOOOOOOOOSOOOSOSOSOSOOOOOOOOOOOO 
cococ7o7o 
Sao cow 


9 
1 D68 P.AJK: .LONG 17694748 
, eADDRESS P.AJL 
00000000 P.AJM: . .LONG " 
qe $3 70 99 $f 74 $3 7 0 6€ 4 ? D78 P.AJO: .ASCII \ Min ret. period (days) !10UW Max re\ 
5 5 30 31 21 29 7 1 64 28 § F tf 
65 72 20 78 61 4D 0 20 20 D 


13 
sar iEheecaee QU3S:S2 WSU CUES 


+, ASCII \t. period (days) !17UW\<0><0><0> 
+4 P.AJN: .LONG 17694781 
CO P.AJQ: .ASCI YsA5h$ > 
DC4 P.AUP: .LONG 176 
8 -ADDRESS P.AJQ 
T_YES= P. AHN 
T_NO= P.AHO 
-EXTRN SYSSNUMiIM 
-PSECT SCODES,NOWRT,2 


Pee SeBBELEO GTS Th 
oo ssrHoet 
88 


ssesees 


So 
Ww 


FC 00 .ENTRY DISPLAY_DISK, Save R2,R3,R4,R5,R6,R7,RB,RP 
9 000009006 00 9€ MOV Y TIM, R9 
: F F 9€ MOV ADD _TO_LIST_RTN, Rg 
000690006 E 0 MOV SHOOSWRITE_CINE, R 
t 0 CF 3 001 MOVAB. OT ts R 
F ce : OO1A v -T920(SP), SP 
pC OAD FFS8 : 28 0001F MOVC3 #36, P.AHG, DESC_VECTOR 
04 Ag Hy 0026 SCRATCH, R$ 
0c .é . 002A BLBC 116(R3). 1$ 
74 AE OOF 00 E CLUBUF 
3 DD 1 PUSHL R 
000000006 00 FB 00033 CALLS #2, SCAN_CLUSTER_LOCKS 
08 AC DD 99 A 1%: PUSHL FLAGS 
53 DD PUSHL 
OOAD C8 02 FB 003F CALLS 2, CHECK MNT_ALL 
01 0044 BLBS RO. 2$ 
4 00047 RET 
6 AE FF7C C6 9E 00048 28: MOVAB P.AHH, ARGLIST 
ca 82 Ab 9E 0004 MOVAB P.AHI, ARGLIST+24 
39 p 903 CLRL 
0000'CF40 79 A3 91 00055 3s: CMPB 1(R3), DISK_TYPECIJ 
09 N32 005¢ BNEQ 
3c A 0000°CF 40 00 2045 MOVL ISK_LABELCIJ, ARGLIST+24 
EA 50 i F3 000 4$: AOBLEQ #33, I, 3$ 
3 DD 00066 5$: PUSHL 
28 «AE 9F 000 PUSHAB ARGLIST 
0000v Cc 02 FB 000 CALLS #2 COMMON DISPLAY 
24 «AE 0094 ¢ p 073 mOVL 1a8cR ), ARGLIS 
8 AE 7c «OAS OOM ROVIBL 4(R3), ARGLIST+4 
C AE 7E «AS 3C MOVZWL 1 G(R )* ARGLIST+8 
0 AE 7D «AS (OA MOVZBL 125(R3). ARGLIST#+12 
2 AE F C PUSHAB ARGLIST+8 
Fa AG OOF F PUSHAB P.AHL 
2¢ «AE OOF PUSHAB ARGLIST 
F 0009 SHAB P.AHJ 
9 CALLS #4, SHOWSWRITE_LINE 
6$: $ #3, 4(R3) 
A C a 116(RS) , 10$ 
AS 7$: MOVZBL 28(R3), AR 


) 
UBL3  ARGLIST, ne ARGLIST 
MOVZBL 28(R3), ARGLIST+4 


13 
rE-$ep-1904 01:55:57 yanctt Bl iag-32 y4.g-74g, 


1D «AB 5 MOVAB 29(R3) ARGLIST+B 
BA MOVL #4 Aro Is + 
2c MOVAB 44(R3) ARGL st+16 
C MOVL #3, ARGLIST? 
¢ BBC ni. , 8 
CC MOVAB T_YES, 
CF BRB 9$ 
03 D1 gs: MOVAB oT 0 
: v RO, ARGLIST+24 


MOVL 
PUSHAB ARGLIST 


Sms US —D A rOM—M—OMOM 


i 
1 BB 6 Boobs 
8S en ce ee 
Eg 10$: 6BC a? 16(R3), Fst 
0 a3 E nOVZBL 48(R3), ARGLIST 
6 A £ SUBL3  ARGLIST, #8, ARGLIST 
0 A F MOVZBL 48(R3), ARGLIST+4 
1 A F MOVAB 49(R3) ARGLIST+6 
p OOF MOVL #4, ARGLIST+ 
40 A 3 01 MOVAB 64(R3) ARGLIST#16 
0 DO 001 MOVL «#3, ARGLIS +20 
al 01 BBC #2, 4(R3), 118 
f 01 MOVAB 1_YES, RO 
11 0011 BRB 12$ 
03 As 9 0113 11$: | MOVAB T_NO, RO 
5 8 0117 128: MOVL RO, ARGLIST+24 
24 AE 9F 00118 PUSHAB ARGLIST 
00A8 ¢ 9F 0011 PUSHAB P.AHR 
FB 001 CALLS #2 SHOWSWRITE_LINE 
54 AS D5 00125 138:  TSTL  84¢R3) 
OA 13 00128 BEQL 14$ 
54 A3 9F OOI2A PUSHAB 84(R3) 
00cc ¢ OF or D PUSHAB P.AHT 
Fe 131 CALLS a SHOWSWRITE_LINE 
0099 ¢ E 0134 14$: BLBS  153(R3), 15$ 
02 1 00139 BRW 423 
C 4 01 15$: MOVL Ate ARGLIST+4 
p 14 MOVL #11. IDX 
00B8 C043 91 00143 16%: CMPB 184 (1Dx) (R31, #32 
06 12 0149 BNEQ 178 
28 Ag D7 00148 DECL ARGLIST+4 
50 F4 O14e SOBGEQ IDX, 16$ 
28 AE C3 91 17$:  SUBL3 ARGLIST+#4, #18, ARGLIST 
0B8 C3 SE 00157 MOVAB 184(R3), ARGLIST+8 
6 (C3 3C 001 MOVZWL 182(R3). ARGLIST#1 
CE ¢3 3¢€ 0016 MOVZWL é (R3). ARGLIST+1 
C3 3¢ 0016 MOVZWL (R3), ARGLIST+ 
D2 C3 7D 0014F mova OCR ); ARGLIST+24 
0000 ¢3 «3C 00175 MOVZWL (R3), ARGLIST+32 
boct C3 3¢ 00178 mOV2 4(R3). ARGLIST+36 
09A f f 181 MOVAB 4(R3), RG 
E 1 BBC #6, (ROS, 18$ 
00D04 CC é O18A MOVAB P.AHV, ARGLIST#+44 
12 11 001 BRB 20$ 
9 192 18$:  TSTB  (R4) 
coon PE SESS RSLs PPh, ancistoc 
6 i 0019C BRB 20s ~* 


Be Se Se Se Se Ge Se Ge Se Fe Se Se Se Se Se Se Se Se Se Se 


Pee Se Se Se Se Se Se Se Se Se Ge Gee Se Se Ge Se Se Se Se Se SF Fe Ge Se Fe Se Se Be Se Ge Se Se Se Se te 


4C 


54 


54 


OF 


OE 


OE 


OE 


ou 
ao 


0089 


Vw UT PN 
Mmno— DBo-woLmm 


~n ~n 
LLLTLSLLLSVVTLLLLeeee ees CeO LA OAM OOO 


COOOCOCOCOOCOOSOOSOSSOSOOCSOS OOOO OOoOOooOoOooO 


PRIPIPPPOPPYNIPPDPPDPNINYININIPUPIPYINPINIPYNININPIPINININININID 3 9 9 OOO ss Ss ss es es es ee ee 


>—-w 
Sd ORO Ov UN Be 
SRIALSSVASFSSSSAM 


Om “i 


oo 
an 


NE SO OFRS IHOO OUND VEU HONG RO OMOr MO 


th . 


218: 


228: 


~m 
Ww 
bad 
oe 


~ 
= 
= 


~ 
uw 
wr 


26$: 


-1 
a 


386 12:05:36 


Binctist ess, ARGL 


18CR 43°48 405 ‘0. ARGL ist+40 


tah” 1$ 

P. Any. ees 
RO 

a0, yah ARGLIST+48 
ge AIA, FAO_CTR 
ny #21, ARG 4ST+48 
R ets8 
159(R3), zgARGList+56 


AS 
rity "shOwsuR1 Te LINE 

Dest eVeCTO PTR 
He evecare 


ag, LE te eiol 
paix 
PT 


“ 5 Ago-"9 TO_LIST_RTN 
so tas, 
fain shy" 


ADD_T T_RIN 
i! ey 


i ey Bp TOnbdsT. RTN 


; 6,‘ =( 16) 
rh, 


PTR 

#5. ADD_TO_LIST_RTN 
(R4T, 268 

$86 (Res) 

Pe pin’ 


i AIST RTN 


AX-11 a, $sa5 V4.0-74 
CLIUTL. gre }SHODEVPRT .B 


ooo GOCOOo BO 


Ror 


ee ee ee eee 
COnwe Fw OOWO fw ~~ 


WWWwnon 


ABAD 


a = = 
coo fo 
Ny Ww Ww 
oo - Ww VN 


13 
HErbeoctgee 1:35:57 Yanett BL ieg=32 v4.0-763 


0340 ¢ gf PUSHAB P.AIU 
, 0 4 Chits. 4 ‘ ADD_TO_LIST_RTN 
§§ 0090 § 278 CRPB 7(R3)5 #2.—i 
BEQL $ 
OOF F BRW $ 
OE $2 0 1 28$: BBC #3, (R2), 298 
50 - OA movz7eL #80, =-(SP) 
03 C6 OF A PUSHAB P.AiW 
08 + Hj CALS. A ADD_TO_LIST_RTN 
O€ $2 Og 8 AG 298: § a. thoy 30$ . 
E F 9A 000A8 movze. #80, -(SP) 
03 C6 OF 002A SHAB P.ALY 
08 FB 0036 CALLS” #3, ADD_TO_LIST_RTN 
OA e2 0 ft 30$: BBC #i. (R2v 31s 24 
E 50 8F 9A 002BA MOVZBL #80, -(SP) 
03A0 c6 7 f us BAJA 
24 «AE OOEF c3 i, cs 31$ MOVZUL 39(R3), ARGLIST 
30 AE 04 002CC CLRL ARGLIST#+12 
AE D4 O02CF CLRL ARGLIST+4 
20 11 002D2 BRB 3$ 
28 OA 0OF1 C3 3C 00204 328: MOVZWL 241(R3), ARGLIST +4 
00 00p2¢ 28 AE 7A OO2DA EMUL AR LIST#4. 10(R3), #0, TEMP 
28 «AE 1€¢ AE QOOOO3ES BF 7 £3 EDIV. #1000, TEMP ARGLIST#4, DUMMY 
6 AE OOF ¢ EE MOVL 43(R$), ARGLIST#1 
C AE ED C3 3C O02F4 33$: MOVZWL 237(R3). ARGLIST+8 
4 AE OOF C3 3C OOOFA MOVZWL 247(R3), ARGLIST+16 
8 F9 ¢3 3¢C 00300 MOVZWL 249(R3). ARGLIST#2 
34 AE OF PUSHAB ARGLIST+16 
047¢ C6 OF PUSHAB P.AJG 
34 AE OF $ ARGLIST+8 
0434 C6 9F 00310 PUSHAB P.AJE 
34 AE OF 00314 PUSHAB ARGLIST 
O3E8 C6 9F 00317 PUSHAB P.AJC 
7 Fe 1B CALLS #6 SHOWSURITE_LINE 
A 6 IF LBC (Re), 4$ 
E 50 BF 9A MOVZBL #80, (SP) 
04A4 C6 OF 5 PUS P.AJI 
6 11 BRB 35$ 
7E 50 F OA B 34$ MOVZBL #80, -(SP) 
0408 (6 OF F PUSHAB P.AJK 
08 AE OF 35$:  PUS PTR 
68 0 FB CALLS #3, ADD_TO_LIST_RTN 
0 cE MNEGL # RO 
0404 6 00€1 G3 bi CPL 3(R », P.AJM+4 
08 14 BGTR 3 
0400 6 00DD ; ot CPL 1R3), P.AJM 
4 1F BLSSU $ 
06 $: INCL R 
6 $: INCL R 
DS 00356 38$:  TSTL R 


SRESESESE 


Pe Se Se Se Se Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Be Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


3; Routine Size: 


50 


c3 


995 bytes © 


69 
69 
$8 AE 
8 AE 
67 
67 
11 
52 
EO wit 
FF 49 
5 
24 = AE 
5 
2 
0007 C8 
0103 =«c8 


Routine Base: 


ae: 
aoe HP 
ae: 
ne 
ae: 
0518 +4 
ot Ey 
«oe 
4 

8 

D4 

E4 AD ? 

7 

DC AD4 $9 
z4 AD40 pe 

4 F 
0524 oF 


SCODES + O6BA 


16-Sep-1 
10-885-1 


Be 12:55:36 


AX-11 Bliss-32 wh os 
CLIUTL.SRCJSHODEVPRT .852;1 


SNUMTIM 


o~ = 38 
a os 
n—-DzD 


Bw. DS aS 
ocr Paoxz- bd 
oO «- 
SE B03 SaRL 


i 
SROWSURITE ims 
VECTOR, #T 


foRyp 


=o 
ed romnowm 
AM 


ale I, RO 
PE SC_VECTORSEROD 
a 


R 
#1, I, R1 


wi. I, RO 
DESC_VECTORCROJ, DESC_VECTOR+4(R13, RO 
#46, 7-1(RO) 


wi, I, R 
DESC _VECTORCROJ, ARGLIST 
ARGLIST 

P.AJP 

#2, SHOWSWRITE_LINE 

#3. 1, 408 

¢ Uaut 

‘ . CLUSTER_NODES 
#1, SHOW_DEVICE_ACL 


7H sep 1984 234 1: $2 ANGI OLiegcs2 y4s0-74, Page, $5 


: 


33 1 OBAL ROUTINE displa t ( h, f ) : NOV 

:} ! H S908 play_magtape (scratc lags ALUE = 

3; 1 1 

: i i ; This is the display routine for magtapes. 

: 1 1 i Inputs 

33 1708 ; penarcn = contains data about the magtape. 

s : M 100 : LAGS = contains info on what to print 

31 38 17 i Outputs 

3 1 17 ! None 

3 1395 177 ! 

3 3 1776 !eoe 

1 it 

31 38 1775 scratch : REF SBBLOCK, 

3; 1400 1776 flags : REF SBBLOCK; 

1203 19 AL 

: 1208 1338 clubuf : Bath tt Se BYTE), ! Buffer for lock information 
3 1404 17 arglist : 

one 

: 1407 i" : First thing, fix up the scratch area with any available clusterwide info 
; 1409 if 5 if ;,SBBLOCKCscratch{d_\_devchar2], dev$v_.clu] ! If available clusterwide 
$1611 17 scan_cluster_locks (.scratch, clubuf); 

1013 i759 5 

: 1414 1790 i Make a check to see if /ALLOCATED or /MOUNTED was specified. If so, 

3; 1415 1791 !' then check to see if the device is mounted/allocated. If not, then 

: 1018 1736 don't display information on the device. 

: 1418 1794 2 iF NOT check_mnt_all(.scratch, .flags) 

3 1032 1299 THEN RETURN; 

: 1421 1799 arglist(0) = cstring("Magtape '); 

on ee 

+ 1424 1800 2 ! Determine which type of tape drive it is. If not in the List, then 

; é 5 ! 1 simply say that it is unknown. 

: 14 $ 1 5 ar List(6) z unknown; Assume unknown 

3 14 1 INCR i FROM OT e_number = 1 DO thru tnown magtape types 

3 14 1805 (IF pon H  devtype). EQLU . gre, type iJ 

3 16 ¢ } THEN (arglist(6) = .tape_labell.iJ; EXITLOOP)); 

; 1? ' common_display(arglist, .scratch); ! Display stuff common to all devices 
: 16 181 ‘ 

3 6 5 ; i : Display other data 

; 14 1 18 if .scratch{d_b_cont) 

3 14 1814 THEN 


H 13 


$ T Se AX-11 Bliss-32 V4.0-74 Pp | 
rive ta 1er3ee= 488s 93:58:35 Het Osa sshbotuatr o$2.1 29e 3 

14 BEGIN | 

arglist = avl$s_v yettet 

44 arolist = scratchid_t <voln a); ! Vol label 

44 arglist = .scratch(d_u_rvn ! size | ve volume number 

44 arglist = scratch q- we recor $2); : ze in bytes 

4é erotistt KEs¢ ratentap “Stet tus. ‘0, SB1TPOSITION(vcbSv_group) «1,01 yet 

“ v ° 
Prk THEN arg isttéi's Strih CG Dale 


it 4 ae Kiscrat nta,b. ~? eee 0, SBITPOSITION( vcb$v_system),1,0] 
Then arg Ne tistt = cstring("Sys 


ELSE ar = coer ('Broe ro 
arglist prot teetes ss ‘BS: 
arglist speratcht ' Count of sharers 
orglisths - aera tch dt. ta ecpnan): 
arg tistes . ee ane d_ta nie 


arglist 10] = scratch(d_t_ “scenes "oe 4: 
t 
: Check for the specific tape characteristics 


argtistt23 = (IF Sem, oceCocreten (a l_devdepend], mt$v sone tty? EQL 0 
O¢kLacratchté ~devdepend), mt$v_density) EQLU mt$k_normal11 
THEN Estrin 
THEN estringt 


FEN Estrin sek. ocx 
ELSE are Senta l_devdepend], mt$v_density] EQLU mt$k_gcr_6250 
ig 4 estringt'6 


S oak ek ek ee ek ek ek ee el 


cs 


OC K Feeratcntd_ l_devdepend], mt$v_density] EQLU mt$k_nrzi_800 
ratch(d_l_devdepend], mt$v_density] EQLU mt$k_pe_1600 
5°5 


SES 


$s. 


SOLS 


THEN show$Swrite_Line(ascid pitt erglist( 0). 
Volume Label 


0 
; 
; . 8 
: 5 orotisecti)s - pie ergutaelt203<0, ,8>; 
0 § IF SeeL ork Cace atchid-| eyespetto mt$v_ format) EQL 0 
a! THEN arglist(14 format_la j 
ig § BEGIN 
74 50 arglistC14] = unknown; 
FA 3) 4 bg (iF cspau ext seretentast Seyde J, at$v_f ot) EOLy .f t_typel.i] 
. cratc evdepe mt$v_ forma orma e 
is 8 Le (arglis Leet 3 format_ labett. "0° EXITLOOP)) - 
iS 85 arg isté133 = 33 - .(.arglist£14])<0,8>; 
I iH If .scratch{d_b_cont] 


showSwrite_line(ZASCID ° Density! #&< '>!ac Format!#< '>!AC', 
arglist(11)); 


arglist(0) = (IF .$B8BLOCKCECscratch(d_l_sts], 0, SBITPOSITION(ucb$v_unload), 1, 0] 


ZASCIDB “AR Relative volume no.!20UW', 
acgtist( ol. 
5 61 ‘ D 3, Record size!21UW Transaction count! 22uUW', 
: ar 
8 ag ZA + Mount status!#< !>!AC Mount count! 28uUW', 
: argtt sef5). 
65 ZASCID ACP process name!#< !>°*! AF’, 
56 arglist(8)); 
91 
3 
9 


ee a me me me ee ee ee ee ee a ee ee a ee a ed ed ed od ed ed od oe 
em ee mee em me ee me me ee ee em ee eB ee ed we a ed ed ed od = od = = od Sd = SS 


Pe ee ee dd od od ad od ad od 2b 28 28 2b eee ee 


© 
w 


2 


a _ — 


1b-Fenn1 9 ea at ee tts Pica tae oo Page 43 
THEN UPLIT BYTE(O) | 


ELSE cstring('no-unload on dismount, ')); 
ListC1) = CIF .$BBLOCKEscratchfd_t 8 

arglis = The estringt begin § nningeor-tape, 5 mt$v_bot] 
ListC2] = ¢ 4 ° K h 
arglis = t Thi estringt endeot det devdgnendd. mt$v_eof] 
“egtringttengeofcte ghongyoentt mt$v_eot] 
Geet Byte to) erty 
ert OrKCe¢ra ante. l — in , meee mt$v_hwl) 
UPL 


NAN EU 


pon 


arglist(3) = 7 
SE 


500002 G0 00 CO GDC 


CIF 
TH 
EL 
arglist(4) = “The 


write-locke 
IT YTE(O)); 
arglist(5) = (IF _SOSL OCKCogratehtd. L ploctogent. mt$v_lost] 
THEN cote inas posit 
ELSE UPLIT BYTE(O)); 
arglist(6] = (IF . i estringtievens) l_devdepend], mt$v_parity] 


THEN cstring( ‘eve 
ELSE cstring('odd')); 


fF. 
HEN 
ELSE 


22S 


DONO UVLSWIN—O 


1 
: Format the data for output and hers it. 


eecturten: Line(ascid null, arglist 
showSwrite_lLine(ZASCIB * Volume 2 'AC!AC!AC!IACIACIAC!IAC parity.*, arglist); 


1 
: Let them know if it is accessed elsewhere 


Spt tA T ESR SS 


cluster_nodes (.scratch, clubuf); 


Be Se Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Ge Se Ss Fe Se Se Se Se Se Ge Se Se SH Ss Se Se Se Ge Se Ge SO Se Ge Ge Se Se Ge Ge 


ed ed a ed td dd td dS th dt a a 2 a 4s 4 a a a ts tt tt 


910 
911 $ 
31g : Show any access control List which might be present 
4 gig show_device_acl (.scratch); 
40 91 RETURN; 
541 319 END; 


PSECT SPLITS,NOWRT,NOEXE,2 
rte kepe, 


SCII 3 
ASCII <7>\unknown\ ; 
ASCII <5>\Group\ 3 

SCIl DP \greten\ 3 

SCII <?7>\Process\ 3 

SCI] <9>\Normal-11\ 3 


i 


3 

ep-1 2:35:57 AX-11 Bliss- 4.0-74 

ae ri a cath ee ta ott te oe 
<3>\800\ 

<4>\ \ 

<4>\6250\ 

P ASC <7>\unknown\ 

P.AKB: .ASCII <7>\unknown\ 

P 


-BLKB 
«AKD: .ASCII Volume Label TAF’ Rel\ 


swoogyent ii} 


° 

~" 
>rnSanon 
vw 
eeese 
>>>>> 
xcce 
Pp~r~<- 
7 «8 «© of 
eee 

> 

nmnm 
ey 

tw 0 Oe Oe 
ort 


or 
o 


FOSS BAS 


weSS wavy See non QSERA 


3 
g 


ASCII \ative volume no. !20UW\<0><0><0> 

«LONG 17694781 

-ADDRESS P.AKD 

«ASCII \ Record size! 21UW Transaction coun\ 


SeSSS SESS 


BESS 


P.AKF: 


on 
—w" 
~_N 
Lele 
aS 
an 
Al 
~rO 
No 
+F 
~ruN 
mor 
Om 
Sasa 
MINI 
~nNOoOoOM 
WOU 
Wn ~uno 
Wouw 
MmAR"WNO 


BRARAKOS 
~v 
e 


ASCII YS ist ye) o> <0> 
4 P.AKE: .LONG 17694766 
0 ° mors P.AKF 
75 76 $i 74 es 20 74 75 6F 40 20 4 9C P.AKH: .ASCIi \ Mount status!#< !>!AC Mount count\ 
40 0 20 20 43 41 3E 21 ¢ 
74 5 3 4 
00 55 


oun 


ASCII Vi ge <0><O><8> 
17694765 


MMM MMMMMMMMMemnmmmnrnencrnienencriecrnicnie ry 


oom SoM OOoM— SVCom— 


AB 
BA 
; C4 
or 00 DECC P.AKG: LONG 
73 73 65 63 6F 72 70 20 43 41 20 20 ow iy P.AKJ Ae eT ACP tae t>"LART\<O> 
e 8 ° rocess name: 3 3 
mG $3 $3 8 OF 33 ge 38 Sh ek B ef HE ° 
‘ 
01 OO1F OOEFS P.AKI: .LONG 17694751 
0 * OOEF8 “ADDRESS P.AKJ 
20 3¢ 23 21 74 69 73 6E 65 464 0 EFC P.AKL: <ASCI] \ | Density!#< !>!AC  Format!#< !>!AC- 
Bs 2 oF 98 8 2 Sf 82 SF 30 St 38 $1 Sort = 
910600 7 OOF24 P.AKK: .LONG 17694759 
0000000" OOF 28 “ADDRESS P.AKL 
99 FOC P.AKM: .BYT 
64 20 6E 6F 20 64 20 gf . 6c 73 2p oF $ : D P.AKN: .ASCII <23>\no-unload on dismount, \ 
74 2D 66 6F 2D 67 6E 69 GE 6E 69 z 63 $ "3 ras P.AKO: .ASCII <19>\beginning-of-tape, \ 
0 39 P.AKP: .BYTE 0 
20 2C 65 6C 69 66 2D 66 6F 2D 64 GE 65 OD i A B-AKQ: ASCII <13>\end-of-file, \ 
20 2¢ 65 70 61 74 2D 66 6F 2D 64 6E 65 p 83 B-AKS: “ASCII <13>\end-of-tape, \ 
20 2C 64 65 68 63 6F 6C 2D 65 7 69 72 77 i r7 BAKU: “ASCII <14>\write-locked, \ 
2c 74 73 6F 6C 20 6& 6F 69 74 69 73 6F 70 OF te P.AKW: eeCil <15>\position lost, \ 
8 £98 P.AKX: .BYTE 0 
6— 65 76 65 F99 P.AKY: .ASCII <4>\even\ 
64 64 6F 03 i P-AKZ: ASCII <3>\odd\ 
73 75 7 61 7% 73 20 65 7 6¢ F 0 OOFAS P.ALB: ‘ASCII \ Volume status: ‘!AC!AC!AC!AC!ACIACIAC \ 
' eer ean aan & * boreD 
00 2 79 74 69 72 61 70 OOFCE .ASCII \parity.\<0> 


ee 


a — ; 


K 13 


$ T 16-Sep-1 :35:57 AX-11 Bliss-32 V4.0-74 P 9 
rivet te ae tae) a ea Co Rit hg Pics 713) 
1 fF QOFD4 P.ALA: .LONG 17694767 ; 
835 g080" pores -ADDRESS P.ALB : | 
| 
.PSECT SCODES,NOWRT,2 | 
; +p O8E aENTRY DISPLAY MAGTAPE, Save R2.R3,R4,R5 ; 1758) 
i 000008096 §0 E MOVAB SHOWSWRITE_LINE, R4 : 
; F CE MOVAB =1104(SP), SP : 
Ac D MOVL SCRATCH, Re + 1785 
C  & . BLBC 6(R2). 1 : 
50 AE OOF PUS UF + 1787 
3 DD PUSHL : 
000000006 00 FB CALLS #2, SCAN_CLUSTER_LOCKS ; 
08 A 44 18: ty 4 AGS 3: 1794 
FSDF CF 6 FB CALLS #2, CHECK ANT ALL ; 
61 i BLBS RO, 2$ ; 
6E 9000" CF 9E 28: MOVAB P.AJR, ARGLIST : 1797 
18 AE ' cr 9 MOVAB P.AJS, ARGLIST+#24 + 1803 
p CLRL I > 1805 
C8 A540 79 A 91 3$: CnPS 121(R2), TAPE_TYPECIJ ; 
18 AE D4 AS4 06 4A MOVL §§TAPE_LABELLIJ, ARGLIST+24 + 1806 
4 5 BRB 5$ ; 
EC 50 9 F3 00052 4$: AOBLEQ #9, I, 3$ + 1805 
2 bb 56 5$: PUS R2 + 1808 
0000v CF i 03 HA 2 CALLS hart DISPLAY : 
66 0099 ¢ ES BLBC 185 690" 9 + 1813 
6E 0 VL #6, ARGLIST ; 1816 
6 AE 0B8 (C2 9E VAB 184(R2), ARGLIST+4 : 181 
8 AE 0B6 C2 3¢ MOVZWL 182(R2). ARGLIST+S : 1818 
¢ AE OOcE C2 3¢ MOVZWL (R2), ARGLIST#+12 + 1819 
A 9B ¢ MOVZWL (Re) ARGLIST+16 + 1820 
08 009A CC fi BBC #6, 154(R2), 6 : 1821 
18 «AE 0000° cr 9 ROVAB P.AJT, ARGLIST+24 + 1822 
009A ce +} 68: TST 154(R2) + 1823 
18 AE 0000° cr % 4 MOVAB P.AJU, ARGLIST+24 : 1824 | 
18 AE 0000" CF 9E 0009C 7$: MOVAB P-AJV, ARGLIST#24 1825 | 
14 AE 18 BE 9A 8$: ROVZBL adnct iste » ARGLIST+20 + 1826 
16 AE 14 14 AE C3 SUBL ARGLI T+20, #20, ARGLIST+20 : 
1c AE cc (C2 Ct v2 204 R2), ARGLIST+ + 1827 
20 AE 3 C2 9A MOVZBL 158(R2), ARGLIST# : 1828 
20 AE O€ é A gs SUBL3  ARGLIST+32, #14, ARGLIST+32 ; 
6 AE 00 — C2 9A MOVZBL 1 Bc ), ARGLIST+3 : 18 
8 A 9F (C2 9E MOV 159(R2). ARGLIST+4 31 9 
5 7c OA 9$ MOVAB 124(R2). R3 : 18 
1F 01 A 3 B18 R ), #31 : 
0c 01 «=A3 05 ED CMPZV Hs #5, 1(R3), #12 : 1836 


——— 


a ed 


18-500 AX-11 Bliss-32 V4.0-74 P 
1 ~3007 138% 9}: 38: 35 CLIUTL.SRC Sipe PRT B%2:1 age 99 
07 DB BNEQ 11S ; 
50 0000" CF of 108: BOVAB P AW. RO + 1837 
A3 05 § F £4 11$: CMPZv #0, #5, 1(R3), #3 : 1838 
EA BNEQ = 128 : 
50 0000' ? : BOVAB P.AUX, RO + 1839 
A3 05 ‘ F 128: CMP ZV #0, 45. 1(R3), #4 t 1840 
50 0000' cr " OF OV P.AJY, RO + 1841 
A3 05 99 Fo 102 13$: CMPZV #0 #5, 1(R3), #5 t 1842 
1 BNEQ «+148 ; 
50 0000° cf % 10A MOVAB P.AJZ, RO + 1843 
5 1 10F BRB 3s : 
50 0000° cr 4 111 148 MOVAB ; 1844 
30 AE 0 p 116 15$ MOVL Ro, Kner’ +48 + 1835 
2c OA 30 BE 9A OO11A nOVZBL SARGL IST 133° ARGLIST+44 + 1845 
AE 1 C A § 11F SUBL Hh eee Hore “#25, ARGLIST+44 $ 
FO. Osa é ; it 5 g1T8 + 1846 
38 AE ¢3 0g 91 : MOVL FORMAT_LABEL, ARGLIST+56 + 1847 
38 AE 0000' ct 9— 00131 16$:  MOVAB P.AKB, ARGLIST+56 + 1850 
0 ps 0137 CLRL od + 1851 
51 FC A540 9A 00139 17$: MOVZBL FORMAT _TYPECII + 1852 
63 04 04 i aes CHPZV #4, #47 (R3), ; 
38 AE 6540 DO 0014 MOVL § FORMAT_LABELCIJ, ARGLIST+56 + 1853 
04 11 014A BRB ; 
9 50 02 £3 0014C 18$:  AOBLEQ : 1852 
34 AE 8 BE 9A 00190 19$: MOVZBL aA adsl Ist456. ARGLIST+52 : 185 
AE 1 4 AE C3 001 SUBL ist bs?" ARGLIST+52 ; 
6 0099 «¢ £9 0015 BLBC 155¢ + 1857 
ot HEB =| Rieke oF z: 
I¢ AE 9F 16 PUSHAB ARGLIST#20 F 
0000" CF 9F OO16A PUSHAB P.AK > 1862 
1C AE OF 16 SHAB ARGLIST+12 ; 
0006" CF 9F 001 SHAB P.AKE + 1860 
18 AE OF 73 PUSHAB ARGLIST : 
0099° CF OF O17 PUSHAB P.AK : 1858 
2 AE 9F 0017C SHAB ARGLIST ; 
0000" CF 9F 00175 PUSHAB nib NULL ; 
64 A €B 00183 CALLS # SHOW SURITE_LINE ; 
3¢ AE 9F 186 20$:  PUSHAB + 1869 
64 nad be HA i PAS. & WRITE_LINE — 
07 0089 c8 ¢ ft 1 BBC is Bic at : 1871 
0000" 65 71 oO198 BRB” be oo 
50 0000° cf 9€ 001 gi8: MOVAB AKN, RO :1 a3 
‘ 06 1A2 22$: MOVL RO sks ST + 187 
93 A ; 1A BLBC (hs) + 1875 
. weed 5 i ik BRE base — 
50 0000" CF 9€ 185 23$:  MOVAB P.AKP, RO : 1877 
| 
ay 


VvO4-000" 


3; Routine Size: 


07 


07 


07 


07 


07 


577 bytes, 


0 A 
ae i 
10 Ag 
4 a 


18 AE 


F401 —s CF 
F4F6 = CCF 


Routine Base: 


18 
16 
0000° i 3 iB 
coor HH Bi 
ip f 188 
0000" fr 7 H 4: 
0000' gf 4 138 
D 100 
0000" i Se DOES 
§5 i 1EA 
0000° gf g 1EC 
$0 ob 3 
0000° ff Er 1F 
coon HES 
5 00 B0s0 
0000" CF 5 : % 
05 1 021 
0000" CF 4 021 
6 si 
0000" CF 9F OO2TF 
Bb See 
0000° CF 9F 00 g 
02 FB 89 C 
50 AE 9F 0022F 
: Bb O08e 
5 0D 8 9 
a1 Fe Bosse 


SCODES + OAID 


~ 


Mrmr 


ow 


ae 
ep- 
Sep-1 
4$: 


9B 12:05:26 LGUTUT {SRE SshooeveRT 


RO, ARGLIST+4 
ite (R3), 25$ 
P.AKQ, RO 
ie os 
RO ARG IST+8 
wig, (R3), 27$ 
P.AKS, RO 


P.AKT, RO 

Rd ARG. ISTs1 
#i9, (R3), 29 
P.AKU, RO 
P.AKV, RO 

RO ARGLISTs16 

2b (R3), 31$ 
P.AKX, RO 

RO, ARGLIST+20 

#3, (R3), 33$ 
P.AKY, RO 

34$ 

P.AKZ, RO 

RO. ARGLIST+24 
ASCID NULL 

eee SAOWSWRITE_LINE 
P.ALA 

#2, SHOWSWRITE_LINE 
CLUBUF 


R 
: - CLUSTER_NODES 
#1, SHOW_DEVICE_ACL 


"38251 


~ 
-_ 
Wo 


~“ 
Ww = 


@2c9c20D OD0D00 
SSSs SDeoce 
UR MNO 


a 
S S833 
= wun 


— —2 a a a eh ee ed ed ab db | 
$903 0000 et N | 

eetyrty wom o 

Eee ne eee eee ee eee | 


2 
3 


1914 
1917 


N 13 
1eeSep-19ee 12:09:26 EeLTUTLoSneSshooeveRT-082;1 Pane 185 


3 1 GLOBAL ROUTINE display_journal (scratch, flags) : NOVALUE 
4a 19 2 BEGIN play.j . : 
45 
4 leee 
4 ! 

Z This is the display routine for journals 
50 i Inputs 

1 ! SCRATCH = contains data about the journal 

¢ } FLAGS = contains info on what to print 
4 ' Outputs 
53 ne 
59 

scratch : REF S$BBLOCK, 
flags : REF S$BBLOCK; 

3 CAL 

Z arglist : VECTOR(20); 


! \ 
! Make a check to see if /ALLOCATED or /MOUNTED was specified. If so, 
' then check to see if the device is mounted/allocated. If not, then 
: don't display information on the device. ? 


if NOT check_mnt_all(.scratch, .flags) 
THEN RETURN; 
arglist(0) = cstring("Journal '); 


i Determine which type of journal it is. If not in the list, then 
: simply say that it is unknown. 


SSSHNSARANASSSISALARIS 


arglist(6) = unknown; ' Assume unknown 
INCR i FROM O TO arb oees number - 100 ! Loop Spry known journal types 
8 


devtype) EQLU .journal_typeC. 
THEN (arglist 5-¢ Yjournal Labs C.i); Ext TLOOP)); 


scratch(d_w_devbufsiz) = .scratch(dw_devbufsiz]/512; ! Fiddle buffer size 
common_display(arglist, .scratch); ! Display stuff common to all devices 


OWONAUE WN $$ O ODNAUNE WN 0 OONAUE WN $C ODNOULS WN OO 


DAMIAN 


ws. 


So Non uae 


' 
' If there's more (i.e., not a control journal), continue 


if .scratch(€d_b_cont) 
THEN 


3 
SESSSSERSE 


wr 


ee ee de ee ee ek a ad ad ed a tk a a a bd dd a a a a — 1 4 
ce ee BB a a a i a a eh td a a ed 4S 4 ts a tt 


BEGIN 
95 390 arglist(0) = ucb$s_jnl_nam; ! The volume Label may 
5 971 arglistlij = § ratc Cd_t_velnan): 
59 3f§ arglist § 5 - .scratch dt acpnand; 
598 97 arglist = .scratch(d_t_acpnanl; ! Process name of the ACP 
599 974 arglist(4) = scratch(d_f_acpnam] + 1; 


14 
1$-ep-1964 01:55:57 yanct Blisg-32 y4.oa74g Page. 


=F 4 


4 
} 
| 

3 1 1975 arglist = ,mode_table{.scratch(d_b_amod]); ! Access mode | 

33 197 arglist ; = 21 = 7, istiscte Seb fabs | 

3 7 ¢ 1 arglist = .scratchid_w_trans); ! Transaction gount 

3 1 1 8 arglist 8 = .scratchid_w_ nt cop}: ! Number of existin wr copies 

3 197 arglist = .scratchid_b_ jnl_avli; ! Number of avail. jnl copies | 

3 1605 19 arglistt1 } = .scratch(d_T_ nt _seqngl; ! Current sequence number 

3 ; 13 arglistL11J = .scratchid_l_jnl_asidd; ! How many assigns so far | 

:1 19 | 

3 199 2 showSwrite_lLine(ZASCID ° j Journal name!2< !>*"! AF ACP process name!#< !>"'!AF’"*, 

. rglis 5 | 

3 tet : pt Access mode!#< !>!AC Transaction count!22uUW", | 

3 r o 

3 1618 ; tH Existing jnl copies! 13uwW Available jni copies!19uB", 

3 arglis ° 

3 1813 1 Ip ° Current sequence no.!12UL Assign seq. no.!24UL", | 

3 1616 1991 arglist(10)); 

3; 161 199 

3 1918 123? ' 

5 284 ib a If this is a disk journal, display the size. 

3 1621 1998 If .$BBLOCK(scratch{d_l ni.char], 0, SBITPOSITION(vcb$v_jnl_disk), 1, 0] 

: 16 ¢ 199 THEN showSwrite_line(ZASCID Journal size! 20uL', 

3; 16 1998 ZREF(.scratch(d_l_fil_mxvbnJ)) | 

165s 200 | £¢ tenn, Gteptay ific stuff | 

3 : ape, display tape-specific stu 

: 1696 001 i ¢ 4 | 

; 16 it ELSE 

3; 1628 003 4 BEGIN 

3 1629 004 4 arglist 9 = .scratch(d wa int. idd; 

3; 16 005 4 arglist = sgratchtd_t gronge : 

3 1631 4 arglist(i) = ~ .(.argl st(2J)<0,8>; 

: 16 § 007 4 showSwrite_lLine(ZASCID Journal quota! 19UL Shadow group!#< !>!AC', 

3; 16 $4 4 arglist); | 

; 16 00 END; 

3; 1635 010 | 

; 16 011 ! 

3 13 O18 : If this is an AT journal, display the journal mask 

3: 1639 014 If .scratch(d b.devtyped EQLU dt$_atjnl 

: 1640 015 THEN showSwrite_Line(ZASCID ' Journal mask!12< !>!8XxL", 

3 1641 Big ZREF(.scratchld_l_jnl_mask])); 

3 lose 01 

3 164 018 ‘ 

3 ieee 3h : If an RU journal, display the quota 

: 1646 021 IF .scratch€d b.devtyped EQLU dt$_rujnl 

3 164 0 § THEN showSwrite_line(ZASCID ' Journal quota!19UL", 

3; 1648 0 ZREF(.scratch(d_l_jnl_quot))); 

3 1649 024 

; 1881 3 Display the physical devices 

3 ! Display the physical dev 

3 1606 0 5 : 

3; 165 0 3 4 BEGIN 

3 1654 0 & LOCAL 

3; 1655 030 4 desc : vecronte? 

> 1656 031 4 buffer : VECTORC25,BYTE), 


ot 
semgyer” Rete AU tea Centar Ace oe es} 


pointer : REF VECTORC,BYTE); 
inter = speratch d_k_length:; 
TF interlO] NEQ 0 


SESSS 


showburite,LineCIASCID + Physical device(s): !AC’, 
+ ral = pointert0d + .pointer(0] +1; 

wile ate taterces NEQ 0 DO 
seme cahnande—~ +2 2 ata '>!AaC", 


SESSSTES 
SS Setets 


RRARRARRARARE REE REE RR Enon 


3 3 4 

3 7 4 

3 1 4 

3 1 o 

3} 

3% 

3 3 
; 1 
3s ) 4 | 
3 ; 4 | 
: 7 | 
; 1890 5 pointer = pointert 0) + .pointer(0) + 1; 
3 1671 $ ND; | 
; 24 END; | 
S iene 3 | 
; 1675 0 4 arglistCOJ = (IF .$BBLOCKCscratchCd_l_sts], 0, SBITPOSITION(ucb$v_deadmo), 1, 0] 

; 1676 1 4 THEN catrina. delete pending, ‘5 
3 197 é ; ELSE UPLIT BYTE(O)); 
: 1805 4 4 — arglistl1] = (IF SBBLOCKEscratchld.y_devsts], 0, SBITPOSITION(ucbSv_jnl_cls), 1, 03 

; 1680 5 4 THEN cstr ngt cluster journal, *) 

; 163) $ ; ELSE UPLIT BYTE(O)); 

; 1683 : 4 arglist(2) = (IF - SBBLOCKCscratchld_w_devsts], 0, SBITPOSITION(ucb$v_jnl_slv), i, 0) 
> 1684 6 THEN cote ina slave journal, ‘) 

; ye +4 Bey ; ELSE UPLIT BYTE(O)); 
; 1689 bog 4 arglist(3) = (IF .S8BLOCKCscratch(d_w_devsts], 0, SBITPOSITION(ucb$v_known_jnl), 1, 0] 

3; 1688 063 4 THEN cstring('known journal, °) ; 

; 1689 064 4 ELSE IF .$BBLOCKCscratchCd (_jnt_charJ, 0, SBITPOSITION(vcb$v_jnl_tmpfi), 1, 03 | 
; 1690 065 4 THEN estringt temporary file, *) 
3 199) bes ; ELSE cstring("permanent file, ')); 

: 1698 068 4 arglist(4) = (IF - $BBLOCKCscratchCd_w_devsts), 0, SBITPOSITION(ucb$v_perm_jnl), 1, 0] 
3 1694 069 4 THEN cstring('permanent journal.‘ 

3; 1695 070 ELSE cstring(*temporary journal.*)); 

: 1697 Oy2 ; 

; 108 O78 Format the data for output and print it. | 
; 19 75 showSwrite_line(ascid null, arglist); | 
3 4 1 76 phowbur ite ine (EASCIE Attributes: !AC!AC!AC!ACIAC’, arglist); | 
ie 1 ae | 
; 1706 Oa Show any access control List which might be present 

; 1707 08¢ show_device_acl (.scratch); 

; 1709 OB. RETURN; 
3; 1710 085 END; | 


14 
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«PSECT SPLITS,NOWRT ,NOEXE ,2 


SUH REY 
i 


ASCII \ss name!#< !>°'!AF*\<0><0> 


20 6C £ 72 75 6F FDC P.ALC: .ASCII <8>\Journal \ 
eo eB Et FES PLALD: :ASCII <P unknown 
23 f H 4A f P.ALF: .ASCII \ Journal mame!2< !>"!AF’’ ACP proce\ ; 
ROS eg 


P.ALE: 17694778 


«LONG 
»ADDRESS P.ALF 
eASCII \ 


$5 $b GF 6D 20 73 73 65 : 41 20 P.ALH Access mode!#< !>!AC ‘Transaction \ 
wo tS SHH HE 


ASCII Yount | geUW\<O><0> 


S 


So 
Oo 
Dre ee ee ES oo 


P.ALG: .LONG 1 ; 
P.ALJ: :ASCI] \ Existing jnt copies!13uUW Availabl\ : 


oo 

o- 
FMNMMNMNOOSAMUNO NSN ~ 
VOOCOCCOM MMUOOMOwW—O WP 


ASCII \e jnt copies!19UB\<0><0><0> 


MONOS DUNO OONUH OOF MUOnge ~oo 


ALU: .LONG 17694747 

ARPT P At MEY tacnco><0> 
ALW: :LONG E88 733 
eADDRESS P.ALX 


ee tk at at a td — = 8 2 2 2 2 9s ns 2s ss a 3 2 ss 2 ss 2 1 2 AO OOOO 


FPORSA RSASRSASSASEANNESSALOABANULOS TOM HOA DAVOS NOR MOO UN 
. 


vv U 
ee ° 8 
QS 
| and 
ro 


FEE SVCD CP OO CO CO COCO OOOOOOOOOODOOOOOOOOOOOOOOOoOoOoOoOoOoOoOoOoOoOoOoOoOOOOOOC 


0 
010 00 OAC P.ALI: .LONG 17694777 
09 0000" 010 “ADDRESS P.ALJ : 
4] $3 4 ¢9 Le gf $3 i i 75 é3 : 20 £ 8 P.ALL: .ASCII \ Current sequence no.!12UL Assign \ : 
@9 6— 67 6 39 : 41 20 20 0 
00 00 4C 55 3% 21 2& 6F 6E 20 2€ 71 6 0 ASCII \seq. no. !24UL\<0><0><0> | 
010€00 6 P.ALK: .LONG 17694773 | 
7A 69 73 20 6C 61 6E& 72 75 6F 4A 20 29 0 OF4 P.ALN: <ASCI] \ Journal size!20UL\<0><0><0> 
00 00 00 4c 55 1 1 
80000000" O1110 "ADDRESS PCALN fed 
6F 75 71 20 6C 61 of 72 75 6F 4A 20 20 § "30 114 P.ALP: ASCII \ Journal quota!19UL § Shadow group!#\ ; | 
61 20 30 é é 4c 55 3 1 21 61 74 O11 : | 
: 00 if of ; : ? 5 f i ASCII \< !>!AC\<0> | 
016 O2F 01144 P.ALO: <LONG 1769476 
00000 9° 1 [ADDRESS P.AL | 
73 61 6D 20 6¢ $1 6€ 72 75 of 4A 20 20 14C P.ALR: ASCII \ Journal mask!12< !>!8XL\<0> 
00 4 8 21 3E 21 20 3C 1 21 1 
8 0000° i icone LOM ess bane 
6F 75 71 20 6C 61 6E 72 75 6f 4A 20 30 170 P.ALT: <ASCII \ Journal quota! 19UL\<0><0> : | 
4C 55 39 31 21 & 1 : 
B38 alld + 1 SPOR ne ; | 
65 64 20 6¢ 61 $3 69 73 «79 $8 50 20 20 190 P.ALV: <ASCI] \° Physical device(s): !AC\<0> : 
43 41 21 20 3A 29 65 6 16 
0 1 
1 
1 
1 


So 
om 
oo 
So 
o> 


$f AE 1 


ble 
= e = 
~Sep-1 


P.AMJ: 


1 
1 
6E 65 70 20 65 74 65 6C 65 64 0 11¢8 P 
7 1109 P 
61 6€ 72 75 6F 6A 20 72 65 7% 73 75 $f $3 11DA P 
© 85 Oliee Pea 
2¢ 6C 61 GE 72 75 6F 6A 20 65 76 61 6C 73 OF 118 P. 
11FD PLA 
2¢ 6C 61 GE 72 75 6F 6A 20 6E 77 6F 6E 68 OF FE P. 
65 6C 69 66 20 79 72 61 72 6F 70 6D 65 7% § : P. 
65 6C 69 66 20 76 6E 65 6E 61 6D 72 65 i 6 iF P 
72 75 6F 6A 20 76 6E 65 6E 61 6D z2 65 r # % P 
72 75 6F 6A 20 79 72 61 72 6F 70 ép 65 Hy $§ 124 
—E 6C 61 6€ ; 
0 3A 73 65 74 75 62 69 72 76 7 41 20 20 01 
4 2 3 B 41 21 3 ¢ $§ ig 41 21 43 ef 3 g 
0108001 1598 
000000" 0127¢ 
000c 000 
sp 9om0ngg6 80 8388 
08 AC 0D 00000 
2% 8 aa 
F384 OCF Q Fe 16 
/ if S38 
2c AE 000" CF 9E OOOTF 1S: 
44 SOA $009" cr 9 5 
0000°CF40 79 A 91 D 2%: 
44 AE 0000'cF4 i 
ig F 3$: 
. $3 omsth $2 dames a: 
0 00000200 8F cs 
7A A 9 + 
30 AE OOF 
0000v CF 02 F 7 
03 ; 
64 5$: 


ASCII 


-BYTE 
ASCII 


-BYTE 
ASCII 


-BYTE 
ASCII 


ASCII 
ASCII 
ASCII 
ASCII 


-BLKB 
ASCII 


Be 12:09:26 


AX-11 Bliss-32 V4.0-74 
<16>\delete pending, \ 
217>\cluster journal, \ 
215>\stove journal, \ 


0 

<15>\known journal, \ 
<16>\temporary file, \ 
<16>\permanent file, \ 
<18>\permanent journal.\ 
<18>\temporary journal.\ 


2 
\ Attributes: 


17694750 


«LONG 
-ADDRESS P.AMK 


SCODES ,NOWRT 2 
DISPLAY_JOURNAL, Save R2,R3 
sugyeuat Te LINE, R 
-124(SP), SP 

FLAGS 

_ Re 

#2, CHECK_MNT_ALL 

RO, 1$ 


P.ALC, ARGLIST 
P.ALD, ARGLIST+24 


1(R2), JOURNAL_TYPELI) 
JOURNAL _LABELCI, ARGLIST+24 
#5. 1, 2% 
VeecRe) RO 
#5i2, Rb 
RQ. {22(R2) 
rt DISPLAY 
is RO ss 
#18, ARGLIST 
184(R2}, ARGLIST+4 


CLIUTL.SRCJSHODEVPRT.B 


tAC!AC!AC! AC! AC\<0><0> 


j 


Sete Se Se Se See Ge Oe Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Be 


«| 
(14) 


1918 


2 
ee EA Seer, SEB ae et the St a oR 


40 


men en en nen en Pn en en 


oO 


sS388c3 


S S 3 3s sss 
~~ = = 
PREOM BRAN AOGA POPOL APOOOOPDLOOOPN 


on,» P-4 
AMM MrOKoOM MMT HM MM HM MMmrororosnomm 


wwonon 


WMA ARNOPOOWPFOPrny 


a a a a te a 8 a a se 


i 


*DORNSSVFSO 


RA COO — "Co 


> 


4 


7$: 


8$: 


9$: 


10$: 


11$: 


1 
-Sep-1 
~Sep-1 


38¢ 92:00:86 EeCidt $Re$snoot vert -882;1 


1 


w 


GLIST+1 
GLIST+1 


RO], ARGLIST+24 
ARGL 1 St+30 
ARGLIST#20 


sagt 


Brn 


Wao Urn D 
Wow 


>= 
Pare 


5. . 
a 
- 
n 
“~ 
+ 
™m 
o 


Roroces 
one 2 
cl 
Mor 
—N 
.* ¢ 
ao 
OO ® 
wv 
ae 

i 


VVMNMNVa Dv 
v 


I IST+4 
ARGLIST+4, #27, ARGLIST+4 
ARGLIST 
P.ALO 
#2, SHOWSWRITE_LINE 
121(R2), #4 

28(R2), (SP) 

P.ALQ 

#2, SHOWSWRITE_LINE 

121(R2), #1 

240(R2), (SP) 

PALS 

We SHOWSWRITE_LINE 

263(R2), POINTER 

INTER 

POINTER 

ALU 
SHOWSURITE_LINE 
NTER, R 

POINTER 


1(RO), POINTER 
@POINTER 


14 
sHODEYERT 1S-Seo-1964 01:55:57 yatatt BLien=52 40-742, 


3 
=e 


0000" CF f 001 PUSHAB P.ALW | 
07 ~—s-.0089 ; 1 0018F 128: Bee igs 137(R2), 138 0 
§§ 000" cf BF 00 " — MOVAB Pp ALY, RO” 1 
JM, 
x 2 mo oe : 
5 0090 c3 oe 001 MOVAB 144(R2), R1 5054 
07 1 001 BBC #6, (RIS, 15$ 
0 0000° cf 5 i HOVAB P AMA. rb 2055 
50 0000° gf 001 15$:  MOVAB P.AMB, RO 56 
30 0 DO1BA 168:  MOVL RO, ARGLIST+4 54 
1 001 TSTB =. (RAD 058 
or 001 BGEQ «6 -17$ 
50 0000" cr H 0019 MOVAB P ANC. RO 2059 
50 0000° CF 9 00199 178:  MOVAB P RO 
rae Ee ae Ae 
0 0000" CF 5 1 MOVAB P.AME, RO 06 
3 11 001AB BRB 2i$ 
07 00E0 £3 02 £1 001AD 19$: BC #2, 224(R2), 208 064 
0000° i 018 MOVAB P.AMF, RO 065 
50 0000" CF SE OOIBA 208: BOVAB BLAMG, RO 
38 COA 50 06 01BF te MOVL RO, ARGLIST+12 Ose 
af $0 0000" cr Se onle? ROVAS LAMM RO 069 
05 i O1CcCc BRB 23s” 
50 0000° cr 9 O1C 328: MOVAB P.AMI, RO 070 
3c. OA 0 p Bis $:  MOVL RO, ARGLIST+16 068 
3¢ AE 9F 0010 PUSHAB ARGLIS 075 
0000" i 9F 001DA PUSHAB ASCID_NULL 
“ C Re oP ita BUSH ane 1 eta 2076 
0085" F OF O01E4 PUSHAB P.AMJ 
63 Oe FB OO1E8 CALLS a“, SHOWSWRITE_LINE 
DD OO1EB 24$: PUSH 2082 
F303. CF 01 FB QiED CALLS #1, SHOW_DEVICE_ACL tee 


3; Routine Size: 499 bytes, Routine Base: S$CODES + OCDE 


PU OPUIMOO 
ek 
ew 
PR 
@ 
332 
=>” 
z2vo 
a: 
Pa) 
za 
Qa 
Dz 
—O 
nw 
Be Se Se Se Be Se Se Se Se Se Se Ge Ge Be Se Se Be Se Se Se Se Ge Fe Se Se Ge Se Ge Fe Ge Ge Ge Ge Ge Se Se Se Se Se Se Se 
oo oO 
Vw Www 
on 


H 14 
1eaSep-198e 12:09:26 EeLTUTL SRE SshooeveRT-682;1 Paar iS 


S. 99a ROUTINE display_printer (scratch, flags) : NOVALUE = 


=F 4 


tecee 
i 

! This is the display routine for printers. 
i Inpu 


~“ 
—b se 4 Hd 


WMWFwnN— NAVE WN OOONOAUS wT 


' 

! 

: ts 

; SCRATCH = contains data about the printer device 
FLAGS = contains info on what to print 
‘ 

‘ 


i Outputs 
i None 


33 


scratch : REF SBBLOCK, 
flags : REF SBBLOCK; 


CAL 
arglist : VECTOR(20); 


SSLESRENLS 


Make a check to see if /ALLOCATED or /MOUNTED was specified. If so, 
then check to see if the device is mounted/allocated. If not, then 
don't display information on the device. 


F NOT check_mnt_all(.scratch, .flags) 
HEN RETURN; 


SeS 


Ot ed et es 
- —— 


MEUM =O OONAUEWN "OOONOUS wo 


Set up the argument List for output. 


arglist(0) = cstring('Printer '); 

' 

! Determine which type of Line printer it is. If not in the list, then 
! simply say that it is unknown. 


' 
arglist(6) = unknown; 
INCR i FROM 0 19 Pr inter _nusber -1 


SUN SSSLSESEGA LS 


SNS ~ Sn 
be >_> > PITT TT SANNA a Sy ey, i, Pe, ee | 


DO (IF .scratch(d_b_devtype) EQLU .printer_typel.i] 
56 THEN (arglist[6] = ‘Drinter_labell.il; "Ext TLOOP)) ; 
58 common_display(arglist, .scratch); ! Print the common heading 
‘ 
i Insert the page width and Length 
argt ist fo] = .scratch(d_w_devbufsiz); ' Page width 
arglist(1) = .$8BLOCK(scratchld_|_devdepend], \p$v_page_\); ! Page length 


' 
Check for the specific printer characteristics 


arglist(2) = (IF .$BBLOCKECscratchld_l_devdepend), \p$v_cr] 


me et ee ee ee ee md a td 2 od ot 2 = = = 2 


ee ee ee me em ed a ed ed ed od = = = = 2 


NANNY 
SLSATFER=IS 


1b-$ep-1984 93:58:36 Eek TUre SAR shootvent BS2;1 Page 429 


=F 4 


THEN UPLIT BYTE (0) 
tinct string('No 
arglist(3) = A. Ulartiage. a ); 


arglist(4) = (IF . eats, L.devdepend], \p$v_mechform] 


ese vs ring(' No. 
£6 arglist(5) = cstringt! 9 ); 


— 
~ 


arglist(6) = (IF .$8BL0 KCs¢ ratchtd. egevdepend). ip$v_lower) 
THEN cstr ngt! Lowerc 
ELSE cstring(' Uppercese’ +P 


arglist(7) = “TheN UPLIT BYTE CO) l_devdepend], lp$v_passall] 
ELSE cstring( *)); 
arglist(8) = askring! Bassett’): 


arglist(9) = (IF See. Ore Cacratentd. l_devdepend], lp$v_wrap] 
THEN UPLIT (0) 
ELS string. { No ')); 

arglist(10] = cstring(‘Wrap'); 


arglist(11) = (IF VUPLIT BYTE. CO) l\_devdepend], lp$v_printall] 
THEN UP BYTE ¢ 
ELS coprioe “)); 

arglist(12] = cstring(‘Printall’); 


BRIS I~ 


LEALAVSS 


en pe ed 


arglist(13] = (IF SBOL OEKtseret h 
THEN UP’ BYTE (0) 
9 estring "No Mt 
arglist(14] = cstring(‘'Fallback"); 
arglist(15) = (IF .$BBLOCKCscratch(d_l_devdepend], lp$v_tab] 
THEN UPLIT ey YTE (0) 
ELS cstring "No ')); 


arglist(16) = coteingt Tab"): 


arglist(17) = THEN UPLIT BYTE (0). l_devdepend], lp$v_truncate] 
ELS cstring(* No *)); 
arglist(18) = cstring('Truncate'); 


SSS TERR SSE CEE 


PUPP 
AR WI OOS NOE UN OD G0 WO ROM = O OO0 TOP UO OD OO 


' 
: Format the data for output and print it. 
showSwrite_line(ZASCID ° Page width! 22UW Page Length! 28uB', 
arg ist(0J, 
ZASCID 'ACIAC!_ !ACHAC!_!AC*, 
ani st(2), 
ZASC 4 TACIAC!_ !_SACIAC!_! fACHAC’, 


ar st(7), 
CIB tACTAC! PLIACHAC!_!_!AC!IAC’, 
at st(13)); 


Cd_l_devdepend], \p$v_fallback] 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


| 
| 
! If the device is spooled, say so. 

| 

| 

} 


ee ee ee ee ee ee eT ee ee 
ee ee ee ee ee ee me ee ee ee a ed ed ed od dd dd dd dd = dd dd 


SSLESRESLESE 


=F 4 


Oo 


wr 


a 4 bd ts 2 a a = 4 8 


ot tt 
NOUS Un 


wn—o 


72 75 74 65 72 SF 


-Se =| 
1b-$e0- 


IF -SBBLOCKEscratch(d_l_devchar], dev$v_spl) 
NREGIN 
arglist = .scratch(d_l tagtogd - 1; 
arglist = seratentg-fiqnanes: +1; 
arglist = scratchld -$.qnam 
showSwrite_lLine(ZASCID™ 
ZASCID ° 
END; 


Intermediate device: 
Associated queue: 


38¢ 12:09:36 


Show any access control List which might be present 


show device_act (.scratch); 


RETURN; 

END; 

20 72 $5 74 6€ 69 72 50 AML: 
6— 77 6F 6E 68 6E 75 pte 
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s3 
<< 


Ooooo Sooooo 
WASP NOINOSOBAOM MO WE 


ht ae ee tt a ns st te 


oo 

vey on on OM NT 

a] oo Co -o WO 

Pv St NE NE of 
SON TE ME PE MS OME OE OE EE 
MVNO om om wm om 

Wn 

No 
CSOOQOCOOOOOGOOOSOOGCOOOOOOOOOOOOSOOOCooO 


> 
asaae 
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nw 
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AX-11 Blis fege36 v4, eles 
chiviee SRC ISHODEVPRT B52; 1 


tA \. arglist 
‘AC’, arglistt2)); 


SPLITS ,NOWRT ,NOEXE ,2 


<8>\Printer \ 
<7>\unknown\ 


<3>\No \ 
<15>\Carriage_return\ 


0 

<3>\No \ 
<8>\Formfeed\ 
<9>\Lowercase\ 
sv Mippercese\ 
<3>\No \ 
£/>Wesselt\ 
<3>\No \ 
<4>\Wrap\ 
ee \ 
<8>\Printall\ 
we \ 
<8>\Fallback\ 
<3>\No \ 
<3>\Tab\ 


Ve \ 
<8>\Truncate\ 


\ Page width! 22UW 
\<0> 9 


17694759 


Page Length! 28UB- 


PeSe Se Se Se Se Se Ge Se Ge Se Se Se Ge Se Se Fe Sse Fe Ss Se Fe Be Se Se Se Be Se Se 


és 


ah 


21 


EA 


43 41 
SF 2] é3 
4 
5 
74 6€ 49 
63 3 76 
73 73 41 
20 65 
54 
53 
5E 
52 
FiBC OsUéGEF 
01 
6E 
18 AE 
0000°CF40 
18 AE 
50 
0000v CF 
04 AE 
$4 
51 
08 AE 


000000006 00 
0000" CF 
8 AE 
AC 

04 +A 

0 

6 

09 A 

5 

79 A 
aaa 
06 =A 

0 

7A OA 
i A 

05 A 

6 

11—OA 
2 
5 


(4 2 wd bt 8 3 ss a ss dt a sd tt a tt 


p=198¢ 12:09:26 


AX-11 Bliss-32 ph a 
CLIUTL.SRCJSHODEVPRT .852;1 


ADDRESS P.ANO 
eASCII \ TACIAC! !AC!IAC!_!AC\<O> 
eLONG 17694743 
ADDR ss P. 
eASCI TACIAC! | !ACIAC!_!_ !AC!AC\<0><0> 
«LONG 17694750 
ADDRESS P.ANS 
eASCII \ LACIAC!_ !_!AC!AC!_!_ !AC!AC\<0><0> 
eLONG 17694750 
ADDRESS P.ANU 
eASCII \ Intermediate device: !AF\ 
-LONG 17694748 


- LONG 


eADDRESS P 
ASCII 


\ Associated queue: 'AC\ 
17694748 


-ADDRESS P.ANY 


SCODES ,NOWRT ,2 


DISPLAY pelwres. Save R2,R3,R4 
AN RS R4 


PARR 

FLA 

SCRATCH, R2 

#2, CHECK_MNT_ALL 
RO. 1$ 


P.AML, ARGLIST 
P.AMM, ARGLIST+24 


21(R2), PRINTER_TYPECIJ 
PRINTER_LABELCIJ, ARGLIST+24 
#2, I, 2$ 


Ri, ARGLIST+8 


14 
IB-Sep-1984 01:35:57 YAN=It Bl iag-32 v406742, 


-Sep-1 
oc A 16 A MOVAB P.AMP, ARGLIST+12 
06 6 0 of BBC #i, (RO) bf 
26 A j MOVAB Bs Ana. ri 
51 - & ; 78 7$: MOVAB P.AMR, R1 
10 AE 5 7F 8$: MOVL Ri, ARGLIST+16 
14 «AE 28 OA MOVAB P.AMS, ARGLIST+20 
: TSTB —s_ (RO) 
51 34 ne oe ¢ BCVA oat R1 
04 BRB 10$ 
51 3E AS 3 92 9$: MOVAB P.AMU, R1 
18 «AE 51 D 10$: MOVL Ri ARGL IST +24 
06 01 Ag : 9A BLBC =: 1(RO), 118 
48 =A f MOVAB P.AMV, R1 
04 1 A BRB 12$ 
51 49 A 3 AS 11$:  MOVAB P.AMW, RI 
1¢ AE 51 p AB 12$:  MOVL Ri, ARGLIST+28 
20 A 4D AB ; OAC MOVAB P. AMX ARGL [ST+32 
06 6 04 f 081 BBC wa, (RO), 138 
51 55 A3 : 0085 MOVAB PP. AMY, Ri 
04 11 00089 BRB 14$ 
51 56 A3 9€ 000BB 13$:  MOVAB P.AMZ, R1 
34 AE 51 DO OOOBF 14$: MOVL Ri, ARGLIST+36 
8 A SA Ad 9 0 C MOVAB P.ANA ARGL 1ST +40 
06 6 0g : ¢ BBC #2, (RO), 15$ 
51 SFA f 9 ¢ MOVAB P.ANB, Ri 
04 11 000 BRB 16$ 
51 60 A3 4 00002 15$:  MOVAB P.ANC, R1 
26 AE 51 p 9006 16$:  MOVL Ri, ARGLIST+44 
0 A 64 AS : DOODA MOVAB P.AND ARGLIST+48 
06 6 09 f DO0DF BBC #9, (RO), 178 
51 6D A3 : OE MOVAB P.ANE, Ri 
04 11 O00E BRB 18$ 
51 6E A3 9E 000E9 17$:  MOVAB. P.ANF, R1 
34 AE 51 00 OOOED 18$:  MOVL Ri, ARGLIST+52 
8 A 72 A3 9E 000F1 MOVAB P.ANG ARGL IST+56 
06 6 0 gl O0F6 BBC #5, (RO), 198 
51 78 COA F OFA MOVAB P.ANH, Ri 
04 11 O00F BRB 20$ 
51 7c) «OAS 3 0100 19$: MOVAB P.ANI, R1 
3c. OA 51 p 104 20$:  MOVL Ri, ARGLIST+60 
40. 0080 ¢3 ; 1 MOVAB P.ANJ, ARGLIST+64 
07 § E 1 BBC #6, (RO), 218 
0084 f 9 HOVAB BANK. rb 
50 0085 : 9€ 00119 318 MOVAB P.ANL, RO 
44 AE 0 p 11E 228 MOVL RO, ARGLIST+68 
48 AE 0089 C3 9E 001 MOVAB P.ANM ARGLIST#72 
4 AF F 001 PUSHAB ARGLIS§T+5 
012¢ «6¢3) «OOF 00128 PUSHAB P.AN 
4 AE F OO12F PUSHAB ARGLIST+28 
0104 C3 9F 001 PUSHAB P.ANR 
18 AF F 001 PUSHAB ARGLIST+8 
oon C3 OF 001 PUSHAB P.ANP 
1 AF F 001 SHAB ARGLIST 
00Bc C3 OF 0014 SHAB  P.ANN 


a A wee at a on 


SFIA VISea VeFIA SUSSS ISFSA Vlses Ven 


Se a eh so 4 ow a 


z 


| 

ead | 

i } 
aaa ee a a i a a ti a A SR A no eS 


—— 


1S $enc19R4 93:38:36 | HetTUtOsRETsAooeuPRT BS2:1 
CALLS 48, RITE LINE 
a AEs 


H PAN 
PUSHAB ARGLIST 
HAB 


foal 
a. 


0150 


ONO NOOOOOOOMnN 
> 


DOD AMMW—w 
Dd od Dd dS Sd 2 


ce 
nw 

= 
-T) 


PUS » ANV 
64 CALLS #4, SHOWSWRITE_LINE 
23$ PUSHL 
FI8C OC sCéCF 0 CALLS) #1, SHOW_DEVICE_ACL 


; Routine Size: 375 bytes, Routine Base: S$CODES + OED! 


n" 


' N 14 
Oe-000 VexSep-198e $2:09:36 Let Ture SReSsnopeveRt 882;1 


1 S990 ROUTINE display_terminal (scratch, flags) : NOVALUE = 


S 


——s 


leee 

i 

' This is the display routine for terminals 
i Inputs 
: SCRATCH = contains data about the terminal 
FLAGS = contains info on what to print 


i Outputs 
; Non 


WFUSVSVSVSVSY 
BOGE AR UI O DONO 


wi 


I ee neta 


NOME WN 0 ODNAOUES WN (CO OODNOUS WN "O0e 


scratch : REF SBBLOCK, 


arglist(6] = unknown; 
INCR i FROM O {9 teratnal pynber - 1 


860 
se 
bes 3 flags : REF S$B8BLOCK; 
ee 3 =—_ list VECTORC20) 
arglist : 3 

B67 eet : 
869 4 i Make a check to see if /ALLOCATED or /MOUNTED was specified. If so, 
ar 4 ! then check to see if the device is mounted/allocated. If not, then 
18 "4 : don't display information on the device. 
B98 4 if NOT check_mnt_all(.scratch, .flags) ~ 
874 4 THEN RETURN; : 
HE ae 
ad 39 Set up the argument List for output. 
879 3 arglist(0] = cstring('Terminal '); 
81 a Ss 
Be 55 i Determine which type of terminal it is. If not in the List, then 
88 2$ ! simply say that it is unknown. 
884 5 ! 
885 28 

5 

$4 

85 


a a td td ed ak ed a ed a a a a a 


RIPIPININININININYININYININIPYININININININYININIAININININPINININININIPIPIPIPIPINPIPIPIPIPIPIPIPUIPININIPIPINIPUNIPY 


DO (IF .scratch{d_b_devtype)] EQLU .termin L_typet 43 
THEN (arglist[6] = .terminal_‘abell.iJ;“EXITLOOP)); 

ta o7 common_display(arglist, .scratch); ! Print the common heading 
9 65 : 
38 $8 : Show any access control List which might be present 
36 $3 show device_acl <.scratch); 
89 0 RETURN; 
898 71 END; 


Pim a: O1:85:57 YAN Ht BLen-32, y4_o-74. 
-PSECT SPLITS,NOWRT,NOEXE,2 
20 6 6) OF G2 GD 12 GS $4 8 IEEE Bans ASCE cop\Terminal \ 


«PSECT SCODES,NOWRT,2 
-ENTRY On eepyS s TERMINAL, Save nothing 
AB 


5 80 AE MOV 
A mova $ RATCH. St Sp) 
F056 g Q F A CALLS , pares. 
A 3 OF BLBC R $ 
6E 9000" CF if MOVAB P.ANZ, ARGLIST 
rT. AF 00° CF 3 901 MOVAB P.AOA ARGL 18 T#24 
5 Ac D0 0001D MOVL SCRATCH, 
56 04 000 | CLAL 
0000'CF40 79 al 1 00 ; 1$: CnPG 1(R1), TERMINAL_TYPELIJ 
18 AE 0000'CF40 00 000 MOVL § TERMINAL_LABELCIJ, ARGLIST+24 
4 11 000 BRB 3 
EA 50 2 3 00035 2$: AOBLEQ #34, I, 1$ 
04 AC DD 00039 3$: PUSHL SCRATCH 
04 AE F 0003C PUS ARGLIST 
0000v CF 02 FB 0003F CALLS #2, COMMON_DISPLAY 
04 AC DD 00044 PUSHL SCRATCH 
FI3F OC 01 FB 00047 CALLS #1, SHOW_DEVICE_ACL 
04 0004C 4$: RET 


3; Routine Size: 77 bytes, Routine Base: SCODE$ + 1048 


ta Seige DRE tte tare ae oe 
soe ROUTINE display_general (scratch, flags) : NOVALUE = 


Sz 


wr 


leoce 
' 

5 This is the general display routine for devices 
i Inputs 

ops : "scratcn = contains data about the device 

: FLAGS = contains info on what to print 
i Outputs 
: None 
' 
' To oe 


scratch : REF SBBLOCK, 
flags : REF SBBLOCK; 


Po a 


BDWNAUVESWN “OC VOOnNOulwn—oO 


CAL 
arglist : VECTOR(C20); 
' 


i Make a check to see if /ALLOCATED or /MOUNTED was specified. If so, 
! then check to see if the device is mounted/allocated. If not, then 
! don't display information on the device. 


if NOT check _mnt_all(.scratch, .flags) 
THEN RETURN; 


: Set up the argument list for output. 


AEA LS SBS RRMA OOS GOA OOOO 


Mmeunr— 


iret tee 0 . peering Device "); 


WODODOODODOVDOVOOODDODDDOODODDODODODDOODOOO0O 


Be Se Ge Se Ge Se Se Se Se Se Se Se Se Se Fe Ge Se Fe Ge Ss Se Fe Se Ge Se Se Se Ge Se Se Se Se Se Se Se Se Ge Ge Se Se Se Ge Ge Se Ge Ge 


et ee) a a a a tk ad a es es = 8 = = = 2 2 = a a = La 


3 arglist 
09 common_display(arglist, .scratch); ! Print the common heading 
39 11 : 
oct \¢ : Show any access control List which might be present 
9e 14 2 show_device_acl (.scratch); 
94 15 
944 16 RETURN; 
945 31 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
20 65 63 69 76 65 44 O7 O140E P.AOB: .ASCII <7>\Device \ 3 


-PSECT SCODES,NOWRT,2 


cart 


3; Routine Size: 


46 bytes, 


15 
Ib-5e -1 :35:57 AX-11 Bliss-32 V4.0-74 P 8 
eee 7a oh bet hg pio a Oe aoe 
ENTRY D1 SP AY_GENERAL, Save nothing 3 2272 | 
0 MOVAB =80(SP)> SP : 
A vQ SCRATCH, =(SP) + 2300 
9 re CALLS #2, CHECK_MNT_ALL : 
B BLBC 8=E_s«aRO ‘18 : 
6E 0099" CF MOVAB P.A0B ARGLIST : 
AE D CLRL ARGLIST+2 : 
04 AC BD PUSHL SCRATCH : 
AE 9F 5 ARGLIST : 
0000v CF 02 FB CALLS #2, COMMON_DISPLAY : 
06 AC DD SHL SCRATCH 3 2314 
F111 CF 01 FB ia CALLS #i, SHOW_DEVICE_ACL S oes 


Routine Base: 


SCODES + 1095 


=F 4 
£ 


000 
uw 


RES ERERE A Sc os tt SS 


2S3a5 


COODODOODOOOOOOOO 


coco 
wt 


Oooo 
w 


S3S333S323SE 


me a ta ik ak et at tk ed tt a 1s a a = Ln — 9 4 


Bess 


NOUS Wit —O0Oo 


PAA 
MEW OOONOAUE WN OC OOVNOAUS WO 


vuvU 


= dev 
= devi 
SCRATCH = address of area 


Outputs 
None 


*S RGLIST - Bret tho!" 2 device ¢ 


arglist : REF VECTOR, 
scratch : REF SBBLOCK; 


- 
ptr A..4, : Wee rone 199 
a Ta REP 10 
fao_buff : VECTOR(200); 


BIND 
fao_desc = desc eres : Vv 
prot_desc = dest_vector(2] 


i Get the device and alias names. 
; so shuffle to get rid of the un 


arglist{1] = .scratch£d_b_devlen) - 
orgtistti] = scratch(d_f_ Jevicel 


arglist(3) = .scratch{d_t_host_na 
orgtiettad = scratch(d_f_Rost_a 


‘ 
: Set up a buffer to hold the dev 


dove cvectort 13 = 80; 


desc- vector = fao_ buff; 
ptr = eons sector; 
leading links = 4; 
TBUF = desc vector, 
OUTLEN = desc coyector. 
PRALST = .argl 
CTRSTR = (IF SBS OCKEscrat 


: VECTOR 


1S-Senct98e O1:35:5,  yanett Bt ie4-32 4.0274 


scratch) : NOVALUE = 


This routine displays the common heading for all devices 


Sets aa 
(ASCIC) 
+ (ASCIC) 
Sot Veentoine info on the device 


Pointer 

Pointer to count cell 
Descriptor pointer 
Array of descriptors 


OF (0)), 


ecronted ! Descriptor of formatted VIC 
4; ! Descriptor for protection 


The actual string is of the form ‘*_DDCU"’, 
derscore. 
> 1! 


anes; 


ice name and characteristics 


ch{d_l_devchar], dev$v_fod) 


$251 


! Place to store stuff (10 Lines by 80 chars) 


Page 


79 
(18) | 


) 


Be Be Ge Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Ge Se Ge Fe Ge Ge Fe Se Se Se Se Ge Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Se Se Ss Ge Se Ge Ge Se ee 


WN =O OOVWOuULWwNO”D 


ab aba) 


VuvVVVVVVVUUYU 


PPPre 


Seseseesesss 


eee ee 


OOO NAVUE WN @OOONOUS WIN —O 


Fy oy oF oy oy oy ot ot ot ot at ee 


-scratch 


; Get particular characteri 


1b-$en-1964 01:35:57 Cert sae isneoe veer 6S2;1 


Cd_l_allocts] NEQ 0 


c TACTAE (1A) ic ice t t+tAC, is * 
evice s 
tACIAF (IAF) : ot 


nnn 
OM 
se D 
oor 

- a 


Listl6] NEQ 0 
SCID ripe device type '+!AC, is 
SCID ‘!AC!AF is 


stics of interest 


if. grand ce Tistlecrt t.stsJ. 0. SOI TPOSETIONuchSy online), 1, 0) 


THEN add_to_l 
ELSE add_to_list(ptr, ‘offl 


Wee Mii oad cectlotioeeent sts 
N add_to_List(ptr, °“uni 


If NOT .scratch{d_v host av 
THEN add_to_list(ptr, ° fos 


st(ptr, ‘online, 


ine,’, d; 


j, 9. SBITPOSITION(Cucb$v_ timout), 1, 0] 
t timed out,’, 80); 


ail) 
t not available,*, 80); 


IF NOT -SBBLOCKEscratchld \_devchar], dev$v_avi] 
THEN N add_ to_list(ptr, '° device set /NOAVAILABLE,', 80); 


If .SBBLOCKCscratch(d_\_devchar], dev$v all] 
THEN add_to_List(ptr,-’ allocated,', 80); 


AF ,seacocnCscretchtd_ L_sts], 0,SBITPOSITION(ucb$v_deadmo) ,1,0] 


-SSBLOCKCscratch(d_l_devchar], dev$v_all) 
THEN add_to_List(ptr,~*~deallocate on dismount,', 80); 


a - SBBLOCK(Cscratch{d_l_devchar], dev$v_mant) 


«- e ptines d_t 
st(ptr, *~ 


software go sae . 80); 


HEN 

BEGIN 

If . aS Ap. \_devchar), dev$v_for ! Foreign 

THEN add st(ptr aneees orei ne" . ) 

ELSE add-to “List iotr * mounte 

thei . $BBL : on devte_cut? ' Software-writelocked 


If mount verification has timed out, display that, otherwise if it is active show that. 


! show both timed out and active. 


SELECTONE true OF 
C .SBBLOCKCscratchl 


d_l_sts], 0, SBITPOSITION(ucb$v_mntverip), 1, 0] J 


: add_to_list(ptr, * mount verification in progress,*, 80); 


Poe 18) 


Do not 


j 
| 


a a ek et ed ot 2 td = = = 


DODDS 


WOAFGW=ASSSLESFANLSS 


PELL 


C (NOT 


-SBBLOCKEscratch(d_l_sts)], 0, SBITPOSITION(ucb$v_valid), 


AX-11 Bliss-32 v4.0 7g 
CLIUTL.SRC SHODEVPRT.B 2;1 


1, 03) 


iSBen-1964 04:85:57 


((.scratch(d_b_aqbtype] EQL aqbSk_filv1) OR (.scratch{d_b_aqbtype] EQL aqb$k_fllv2)) J 


TES; 
t -Searock(scrarch(d_t 
st(ptr, 


HEN add_to_l 
END 


if - SBBLOCKCs ratch(d_t 
HEN add_to_list(ptr,- 


if pee Tictloer 
HEN add_to_list(ptr,- 


: add_to_list(ptr, * mount verification timed out,', 80); 
L.sts), 0, Fei Thos TT IONCuchSv. wrongvol), 198). 
“mount verification found wrong volume,", 80) 

}.devchar}. dev$v_dm 

“volume is aot ot a dismount,', 80); 


\_devchar), dev$v_opr] 
“enabled as whens? terminal,*, 80); 


IF Meret tte l_dev ihert. dev$v_d 


THEN add_to_list(ptr, ' 


“evi set “oon PORT,", 80); 


if -SBBLOCKCscratch(d_ l _devchar], dev$v_rck] 


THEN add_to_list(ptr, ' 
If .$8BLOCKCs ratch(d_t 
THEN add_to_list(ptr, 
I 
THE lList(ptr,— 


IF . se rition 
THEN add_to_l 


If . eet 
THEN add_to_Llist(ptr,' 


If .$BBLOCKCscratch(d_t 
THEN add_to_list(ptr, ' 


If eee tis 
THEN add_to_List(ptr,' 


IF 580.0 wow te 
list(ptr,- 


-t- 


“data check on reads,', 80); 


_devchar], dev$v_wek] 
He check on uFites.° - 80); 


F Oe WaT te LL devchar], dev$v_r 


“record-oriented” St Pa - 80); 
t_devchar], dev$v col] 


st(ptr,-’ carriage control,', 80); 
ratch(d_ l _devchar], dev$v net) 


“network device,", 80); 


_devchar], dev$v_fod] 
“ftile-oriented device.’ - 80); 


atch(d_ l _devchar), dev 


“shareable,' ° By’ “ee 


devchar], dev$v rtm) 
“real time device,', 80); 


If .$8BL scat s gracchtd. t efeysherd). gevsy. clu] ' If available show so, but 
AND (NOT .SBBLOCK (sca Echid_l_devchar dev$v_ rvJ) i “not if we served it ae s obvious then) 
THEN add_to_list(ptr, * available to cluster,', 80); 


a SBeLOcKs ratch(d_t 
N add_to_list(ptr,” 


_devchar2), dev$v_red) 
t= Gevice sa phystcal terminal accessed through a virtual terminal,', 80); 


rene t -devchar2), dev$v_ssm] 


st(ptr, ' 


“member of a shadow set,', 80); 


-scratch(d_v_shadow gmaster) 


IF 

THE 

IF . 

THEN add_to_| 
IF 

T 


HEN add_to_lisf(ptr, * 


master of a shadow set,", 80); 


If .$BBLOCK(Cscratch(d_l_devchar2], dev$v_srv] 


age 8) | 


— 


7) 
— 2 
DWNAUS WN —O”OC a 


MFWN— 


PUPP E £* £* 2 ES EE 


SSLEGRENLSSSISAEANLES 


en 


MEW 32S OONOAOUSWN “OOONAUS WN Oo 


— a ll 


me ee a a a ek ke at tk at ot 2 = 2 2 2 = 2 2 St 2 2 = 2 2 SS a 8 St SS YL SY 


MISSES LSSSORESSUNSU UNLESS abo On eS 


PUP PUDPVPUDVPUDPUDUDPVDPUPUSVSUSUSUSUSUSVSUSU STIS SUSTAIN 


Sep-1 2:35:57 AX-11 Oh tag =-32 v4.0-74 
1S $en-1984 93:58:36 eetTuT sae ishootvegr 
THEN add_to_list(ptr, ° served to cluster via MSCP Server,', 80); 


If - SBBLOCKCscratchld_|_dev har}. dev$v_spl) 
HEN add_to_list(ptr,— += G8y ce is spooléd a an intermediate device,’, 80); 


F -SeaLock(scracch(d_t \_devchar], gg 
HEN add_to_list(ptr, ‘error Loggin $ S22 ated.', 80); 


F ,$BBLOCKEscratch{d -b.devchar2], dev$vy_det] ! detached from physical 
HEN add_to_list(ptr, ‘“virtual device is disconnected from physical device," , 80); 


F restore Ces cerenté. Ldevchar], dev$v 79en} 
HEN add_to_List(ptr, ‘generic device,”, 80); 


F .$BBLOCK(scratch(d_l_devchar], dev$v_mbx) 
HEN add_to_list(ptr,-’ mailbox device,”, 80); 


IF -SBBLOCKEscratchCd.| L.sts], 0, SBITPOSITION(ucb$v oclogs pes - 0) 
THEN add_to_list(ptr, ‘error currently being logged,’, 80 


IF sence ic etcest b.orb 5{ tags). 0 Fat TPOstTiENCorsey, noacl), 1, 0) 
THEN add_to_List(ptr, ‘accéss ontrol List not supported on this type of device,*. 80); 


: -SBBLOCK(C#scratch{d_lt_sts], 0, SBITPOSITION(ucb$y_cancel), 1, 0) 
THEN add_to_list(ptr,~* operations being canceled,’. 80); 


if eases cei cetcec eet L_sts], 0, SBITPOSITION(ucb$v power), 1 
THEN add_to_List(ptr,’ power failure has been recorded,', 80); 


: - SBBLOCKCscratchCd_l -sts}. 0 yal SP pamns et 1, 0) 
THEN add_to_list(ptr, ‘device {s busy.’, H 


if -SBBLOCK(Cscratch{d_l_sts], 0, SBITPOSITION(ucb$v -mounting), 1, 0) 
THEN add_to_list(ptr, °~ mount operation in progress,', 80); 


IF .$BBLOCKCscratchCd_l_sts], 0, SBITPOSITIONCucb$y =tgaplate). 1 
THEN add_to_list(ptr, ' “device is a template only,', : 

1 

: Now print out a blank Line followed by the information 


eautenten Line Cage id. null, arglist(0)); 
INCR TF ROR oT DO~ 


IF ea a EQ. 0 ! On the Last string change the final 
THEN ! comma to a period. 

BEGIN 

BIND 


0] 


r = ,desc_vector((2*.i)+1] 
dot = (str+zdesc_vector(2*.il-1) : BYTE; 
det o *,° 


oretiert 0) = dest. vect 
ppeuter te_li + AAS D 
IF desc qiectorle (,i+ 
THEN EXITLOOP 

END 


; srglistl0}); 


oOo-- 


a eee 


=F 4 


— 


MEWnN— 


FANLS 


DEDEDE DED II DID ced cd kk dd td od tad 
oO 
w 


YSVSVSRRUNVSSaVenruv=oSeue AP avr ooe we 


vvv 


vuvv 


SSS ooo AaO 


PUPP PAP AA AAAI 
oon 
wn 


SSLERE 


Bes 


POR ROR OPP OR POR OROPOPOPNO ILI I I ILI I I I I I I I I i BB ROTO UPORPRORORORUTOROROROURROTD 


rb-Fenct9ee 04:55:57 yanctt Bliss 32 v4.0-763. 


' 
; Display statistics common to all devices. 


argh ist 2 oseretchidy errcn 1; 
arglist = .scratch q = teeta 
arglist = i5- ssere tchld_t seinen 
arglist = secrete hCd_t_prenanj; 
orglist m ratchtd_ t “pronen) ¢ 
420- ~Gese 
a0 desc 
SFAOL(CTRSTR = ge ebutt Vigne, 

OUTBUF = fao_desc, 

OUTLEN = fao_ desc 

T = ZREF(.scr d_l_ownuic])); 


PRALST = rat h 
arglisttsd = (IF .FAO best fas 6 
THEN 1 ELSE - .FAO_DESC(O]); 

argt isttg) = fao desc; 
rglist = convert to the extended p ormat 
argli vg he ! h ded pid f 

cv 

EXTERNA ROUT i 


EXESIPID_TO EPID : cvt_ink o>: pee MODE (GENERAL); 
END): TO_EPIB ¢. scratchtd_l idJ) 


arglist(9) = prot_ dese 
If. _SBBLOCKE ser atehtc d_ { -devchar] dev$v_net) 
Ng (arglistl8 “prot_desc 63 = 0) 


BEGIN 
LOCAL 


ey. 
rot_addr ECTOR(4); 
IF SeaLock saretehee d_l.devchar], dev$v_fod] 
THEN key = 
se hey = 1; 


t(prot addr, -scratch(€d_w_vprot], .key); 
aa ral Hs es on 
RSTR = ZASTID 'S:!AS,0:!AS,G:!AS,W:!AS', 
ie = prot_desc, 
= prot_desc 
PRAeST = prot_addr); 
ey tn tebe 
Ww 
oralist ind = “scratchid-w devbutsiz); 
showSwrite_line(ascid null, ergtistl0), 
EASE 0), or count!21UW Operations completed!19UL", 
arglis 
io Owner process !#< !>°*!AF*’ Owner UIC!#< !>!aS', 
arglis 
cp Owner process 1D! 16XL Dev Prot!#< !>!AS'*, 
arglis 
faecip cio f Reference count!17UL Default buffer size! 20uW', 
arglist(10)); 


E 
tink = TiWee (REGISTER=0) : PRESERVE (1,2,3,4,5) NOTUSED (6,7,8,9,10,11); 


Poe 1B) 


2 aE meal 


15 
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Bo Blox 


«PSECT SPLITS,NOWRT ,NOEXE,2 


] 
| 
| 
| 
| 
| 

000000008 1218 P.AOC m3 §c103 | 
64 20 2¢ 46 41 21 0 46 41 4 "A 1440 P.AOE: .ASCII \!ACIAF (!AF), device type !+!AC, is \ ; 
& 8 8S 8 38 63 $0 38 32 23 63 é3 $3 76 1446 ct ; | 
6 C 4 1e25 : 
1060024 01464 P.AOD: .LONG 17694756 : 
00 * 014 .ADDRESS P.AOE : 
73 69 20 29 46 41 21 28 20 46 41 21 43 4 14 C P.AOG: ASCII \!ACIAF C!AF) is \ : 
10E00 147C P.AOF: .LONG 17694736 : 
0000000° 1486 -ADDRESS P.A0G : 
76 $5 20 3¢ 28 31 28 4 46 1 43 41 21 014684 P.AOI: ASCII \!ACIAF!+!+, device type '+!AC, is \<0> : 
2¢ 43 41 21 2B 21 20 65 70 79 7% 6 $ 63 69 0149 : 
69 20 014 : 
14A ASCII <0> : 
019600 1448 P.AOH: .LONG 17694754 : 
00 * O14AC -ADDRESS P.A : 
00 00 20 73 69 20 46 41 21 43 41 1480 P.AOK: ASCII \!ACIAF is \<0><0> : 
919 000A 148 P.AOJ: .LONG 17694730 : 
0000000" 014¢ .ADDRESS P.AOK : 
00 2¢ 65 6E 69 6C $e F 014C4 P.AOM: ASCII \ont ing \<0> : 
or £0007 O14CC P.AOL: .LONG 1769472? : 
000000" 01400 -ADDRESS P.AOM : 
2C 65 6E 69 6C 66 66 6f 1404 P.AOO: ASCII \offling.\ F 
919 00 140¢ P.AON: .LONG 72 : 
09 0000'° 014E -ADDRESS P.AOO : 
74 75 6F 20 64 65 6D 69 74 20 74 69 6€ é 14E4 P.AOQ: .ASCII \ unit timed out,\ : 
919 001 14F4 P.AOP: .LONG 17694736 : 
09 0000° 014F8 -ADDRESS P.A0Q : 
6C 69 61 76 61 20 74 6F 6E 20 a B of : Vere P.AOS: .ASCII \ host not available,\ 3 
on 0 14 01510 P.AOR: .LONG 17694740 F 
0000000" 01514 .ADDRESS P.AOS : 
4F 4E ar 20 74 65 73 20 65 63 69 76 65 1 18 P.AOU: .ASCII \ device set /NOAVAILABLE,\<0><0><0> : 
00 2¢ 45 4C 42 41 4C 49 41. 56 1 : | 
or 19 01534 P.AOT: .LONG 17694745 : 
' 01 .ADDRESS P.AOU : 
00 2C 64 65 74 61 63 6F 6C 6C 1 c P.AOW: . ASCII \ allocated, \<0> : 
or : 4 P.AOV: “LONG 17694731 : 
20 6€ 6F 20 65 74 61 $5 6F $f 6C 61 $3 64 1 56 P.AOY: .ASCII \ deallocate on dismount,\ 3 
2C 74 6€ 6F 6D 9 1555 : 
91 3 0 1568 P.AOX: .LONG 17694744 : 
0 ' 01 ¢ .ADDRESS P.AOY : 
67 69 65 72 6F 66 20 64 65 74 6f 3 6f 4 : 4: P.APA: .ASCII \ mounted foreign, \<0><0><0> : 
1060011 01584 P.AOZ: .LONG 17694737 : 
8 OC 00" 1 BS .ADDRESS P.APA : | 
z. fl 


——-— — + - 7 


iecbect9Ee QU:BE:SZ YMG Shesekéatteti 7s. Poe iB) 


00 00 00 2¢ 64 65 7% 6E 75 “bis 9 8c BARC: ASCII 17884 voted. ,\<0><0><0> ; 
0 " *0159¢ © I ADOR ssp : 
65 74 69 72 77 20 $3 ge ¢} 4 } $6 oF ; 8 Ab P.APE: <ASCII \ software write-locked,\<0> : 
015500 ; B8 P.APD: .LONG 17694743 : 
1 63 69 69 72 65 76 20 7% 75 6F at 0 e P.APG aril & soon rification i \ : 
. : e ve c nm in progress, é 
$s $3 8 GF 28 $3 28 go 2s 86 a St i , cf tte ; 
01 £00 Pf P.APF: .LONG 17694752 : 
1 63 69 9 72 65 76 20 7% 75 6F , D ER PAPI aarti dean ification timed out,\<0><0> : 
° : e mount ver cation mec out, 3 
92 88 Be SB g i om 8 OS 9 % ES * : 
01 Foot 88 P.APH: .LONG 17694750 F 
0000000' of ;ADDRESS P : 
61 63 $9 $6 69 72 65 76 20 74 gf 75 6F 6D 10 P.APK: <ASCII \ ae verification found wrong volume,- ; 
6F 72 20 : i 6F 66 20 GE ; 3 4 1F \<0> : 
91 £00 7 Ss P.APJ: .LONG 17694759 F 
0000000" “ADDRESS P.APK : 
68 72 $1 6D 20 A 69 20 65 6D 75 6C gf 6 40 P.APM: .ASCII \ volume is marked for dismount,\<0> 3 
74 6€ 75 6F 6D 73 69 64 20 72 6F 66 20 > af F 
91 OOTF a5 P.APL: .LONG 17694751 : 
00000 9° 64 “ADDRESS P.APM : 
65 70 6F 20 73 61 3! 64 $5 6C $¢ 61 6E— 6 6 P.APO: .ASCII \ enabled as operator terminal ,\<0><0> : 
2¢ 6C 61 69 6D 72 65 74 20 72 6F 74 i 42 uy : 
01 £001 88 P.APN: .LONG 17694750 : 
0000000° ac “ADDRESS P.APO ; 
20 74 65 73 $0 73 69 20 § $3 69 76 $3 64 P.APQ: .ASCII \ device is set /DUAL_PORT,\<0><0> 3 
eee Oe ae. 16¢ 0 4 Hi P.APP: .LONG 17694746 : 
8508000 ' 86  TADDRESS P.APQ : 
20 6E 6F 20 68 63 63 68 $3 $0 $} so 3 rf: § e P.APS: .ASCII \ data check on reads,\<0><0><0> : 
015600 cc P.APR: .LONG 17694741 : 
0060000" “ADDRESS P.APS : 
20 6€ 6F 20 6B 63 65 68 $3 20 61 2% 61 $4 D4 P.APU: .ASCII \ data check on writes, \<0><0> F 
010 0 1 EC P.APT: .LONG 17694742 : 
09 * O16F “ADDRESS, P ; 
65 74 6€ 65 69 72 6 20 64 7 oF 63 65 0 Fe P.APW: .ASCII \ eS tartan device,\ ; 
16 00 0 P.APV: .LONG 17694744 : 
0 6 * 0171 “ADDRESS P.APW : 
72 74 6E 6F 63 20 65 67 61 69 re re ; : o 14 P.APY: .ASCII \ carriage control, \<0><0> 3 
o1 £00 H P.APX: .LONG 17694738 : 
' “ADDRESS P F 
65 63 69 76 65 64 20 68 72 6F 77 74 65 6€ : P.AQA: :ASCII \ oA device,’ : 
01 00 40 P.APZ: .LONG 17694736 : 
0 9 * 01744 “ADDRESS P ; 
20 66 65 74 6€ 65 69 72 6F 2D 65 6C 69 48 P.AQC: .ASCII \ Se ew device, \<0><0> 3 | 
| 
| 
j 


vo4-600" 


oF 
20 


65 
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76 
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wn 
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oc 
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17694742 
\ ae able, \<0> 
“LONG 17894781 


ADDRESS P.AQE 
eASCII \ real time device, \<0><0> 


«LONG 17694738 
ADDRESS —_ 
eASCII \ available to cluster,\<0><0> 


«LONG 17694742 
ADDRESS P.AQI 
ASCII \ device 


- LONG 
& 


is a physical terminal accessed \ 


ASCII \through 


-LONG 17694787 
ADDRESS P.AQK 
eASCII \ member of a shadow set,\ 


eLONG 17694744 
ADDRESS P.AQM 
eASCII \ master of a shadow set,\ 


eLONG 17694744 
-ADDRESS P.AQO 
eASCII \ served 


a virtual terminal,\<0> 


to cluster via MSCP Server,\<0> 


eLONG 17694755 
«ADDRESS P.AQQ 


ASCII \ device is spooled through an intermedia\ 


ASCII \te Pay ice.\<Oo<e> 
eLONG 17694770 

-ADDRE -AQs 

ASCII \ error logging is enabled, \<0><0> 


eLONG 17694746 
ADDRESS P.AQU 
ASCII \ virtual device is disconnected from phy\ 


ASCII \sical device, \<0><0><0> 


LONG 17694773 
-ADDRESS P.AQW 
eASCII \ generic device,\ 


eLONG 17694736 
ADDRESS P.AQY 
eASCII \ mailbox device,\ 
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=m 
rw 


Sep-1 
Sep-1 


Be 13:59:36 


P.ARN: 
P.ARQ: 
P: 
P.ARS: 
RR: 
P.ARU: 


P.ART: 
P.ARW: 


P.ARV: 
P.ARY: 


CLIUTL.SRCJSHODEVPRT 


«LONG 17694736. 
eADDRESS P.ARA 
ASCII \ error currently being logged, \<0><0> 


AX-11 Bliss-32 heer’ ae 
-B52;1 


«LONG 17694750 
ADDRESS P.ARC 
eASCII \ access control List not supported on th\ 


ASCII Nis type of device, \<0><0> 


«LONG 17694778 
ADDRESS P.ARE 
eASCII -\ operations being canceled,\<0> 


«LONG 17694747 
ADDRESS P.ARG 
eASCII \ power failure has been recorded, \<0><0> 


ADDRESS P.ARI 
eASCII \ device is busy,\ 


eLONG 17694736 
ADDRESS P.ARK 
ASCII \ mount operation in progress, \<0><0> 


ASCII \ device is a template only,\<0> 
«LONG 17694747 


eASCIT = \S:!AS,0:!AS,G:!AS,W: !AS\<0> 


eLONG 17694743 
ADDRESS P.ARU 
eASCII \ Error’ count! 21UW Operations compl\ 


ASCII \e beds gut \<0><0><0> 
eLONG 17694769 
ADDRESS P.ARW 


eASCII \ Owner process !#< !>°*!AF*’ Owner \ 


| 
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GREECE ELH EH 
Pe REE HEH! 


A 


53 41 21 3€ 21 20 3C 23 21 43 49 55 are ASCII ebitfa '>!AS\ ; 

. 8099" 1896 POARN SADDRESS PeA 

; gf oe 4 ee i i $j Hf 28 3 181 P.ASA: .ASCII \ wl es process ID!16XL Dev Prot! #<\ 
00 53 if 34 E 1886 ASCII \_!>!AS\<0><0> : 

4 98 1B40 P.ARZ LONG iY Sart 6 3 

0 6° 1B44 ADDRESS Ne FE 

0 1068 P.ASC: .ASCII Retenends count! 17UL Default buff\ ; 

PRR GH RE ; 

RSH RE ! 


ASCII \e0 thgg'coun 
P.ASB: .LONG 
-ADDRESS P.ASC 


«EXTRN SYSSFAOL, EXESIPID_TO_EPID 
~PSECT SCODES,NOWRT,2 


O7FC 00000 COMMON _DISPLAY: 
WORD 


Save R2,R3, Re iB. R6,R7,RB,RI,R10 2318 


5A 000000006 00 9E 90002 MOVAB SHOWSWRITE. Rr16 : 

59 000000006 00 9€ 0000 MOVAB SYSSFAOL : 

58 EF29 CF 9E 9010 MOVAB ADD_TO List RTN, R8 ; 

5E FCAO ce 3 001 MOV sB6R(S SP) : 
D8 AD 0000" CF 2 é OO1A mMovC3 #40, BAoc: DESC_VECTOR : 3345 
53 04 AC J7Dd 00021 MOVG. ARGLIST, RS ; 2358 

06 A3 06 Ad “9A 00025 MOVZBL 6(R4), 4(R3) ; 

04 Ad 07 900 A ECL 4(R3) ; 
08 a3 09 As 9E 000 OV 9(R4), 8(R3) t 2359 
0c a3 1c A& 9A 000 MOV ZBL Birds, 12(R3) + 2361 
10 A 1D Aa 9E 000 OV (R4). 16(R3) : 36¢ 

D8 =AD 20 8F 9A 0003C MOVZBL #80, DESC_VECTOR > 236 

DC AD 18 AE 9E 00041 v FAO BUFF, DESC_VECTOR+4 + 2368 
04 AE D8 AD 9E 00046 MOVAB DESC VECTOR, PT 3 2369 
0000" CF 4 OD 8 8 OVL #4, CEADING_BLANKS 3; 2370 
3 DD 0005 PUSHL R3 : 2388 

D8 AD OF 00 3 PUSHAB DESC_VECTOR F 

0 AD 9F 0005 PUSHAB DESC~VECTOR F 

57 18 AS 9E 0098 MOVAB 24(R3), R7 ; 

55 70 Ae Y d09¢ MOVAB 112(R45, RS : 

17 65 OE €1 00 BBC wig, (R5), 2$ ; 

54 CA p 64 TSTL 4 (RA) : 

1g 67 BEQL $ : 
: D 69 TSTL (RT) : | 

7 1 68 BEQL =s«d1$ ; 
50 0000" CF 9 MOVAB P.AOD, RO : 
7 4 BRB 4$ : 
50 0000' CF 9 74 1% MOVAB P.AOF, RO : | 
19 1 79 BRB 4$ F | 
é 03 7B 2% TSTL — (R7) : 

7 7D BEQL «6s 3 ; 

50 0000° cf 9 7F MOVAB P.AOH, RO : 

5 1 B4 BRB 4$ : 

50 0000' cf 9£ 3$: MOVAB P.AQJ, RO : 

0 dD 00088 4S: PUSHL RO F 


16 
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9 CALLS #4, SYSSFAOL : 
me ? ROVAB 1 et 5s : 2393 
$ MOVZBL 786 t 239% 
PUSHAG p bo : 
7E 5$: MOVZBL #80, =(SP) + 2395 
PUSHAB P. AON : 
6$: PUSHAB : 
eo CALLS ts ADD 7 IST_RTN : 
OE $6 BBC rb, 3 $ 97 
E MOVZBL b + 2398 
PUSHAB : 
PUSHAB F 
68 CALLS ase ADD TO_LIST_RTN : 
OE 04 Ab 7$: BBS #1. 4(RE), 8S ; 3400 
7E MOVZBL #80 rity + 2401 
PUSHAB Ps ;AOR : 
6 CALs, a ADD. 10. IST_RTN : 
OE $ D6 8S BBS is 8 : 3403 
E MOVZBL + 2404 
PUSHAB : 
6 CALLS. Fin ADD_TO_LIST_RTN : 
OE : O0EB 9S #28, (R5),~108 ~ : 406 
E MOVZBL #80, -(SP5 + 26407 
PUSHAB P.AOV ; 
PUSHAB PT ; 
468 0 CALLS #3, ADS_TO “LIST. RIN F 
12 66 OA £1 OOOFA 10S: ¢ #6. (RE) 1$ : 2409 
OE 17 €1 dor ¢ * (R5). 118 + 2411 
0108 MOVZBL #80, -(SPS + 2412 
01 PUSHAB : 6x : 
5100 CAS” @ ADD. To ST_RTN : 
0110 11$: BBS i, OSS + 2414 
O114 BRW F 
117 12%:  BLBC (RS), 13$ ; 2417 
118 MOVZBL #80, -(SP) + 2618 
11F PUSHAB P.AQZ ; 
1 : BRB 14$ : 
125 13$:  MOVZBL #80, -(SP) > 2419 
129 PUSHAB P.APB F 
i — CACC S ase ADD_TO_LIST_RTN : 
1 ¢ a38, (RS) “483 . : 34 0 
1 MOVZBL #80. -(SP5 t 2421 
1 PUSHAB p-APD F 
Oe CALLS” #3" ADD_T0_ 1ST _RTN : 
148 15$:  6BC nit, CR RB) « ; 6 8 
14 MOVZBL SP§ : 26 
140 PUSHAB pAb : 
133 R1 + 2634 
01 157(R4), #1 ; 


—_— GrBeoct9Re 01:55:57 YAMATO fnge82 y4s0o74g, af? 


1 Page 
1 

2 12 0015A BNEQ «-*'17$ : 

0 15¢ NCL R1 3 

0 p 15€ 178: LAL SRR : 

02 0090 64 1 CMPB 40=s«157(R4), #2 : 

12 0016 BNEQ 188 : 

D6 0016 INCL. R ; 

0 C8 00169 188: B1st2 Ri, RO : 

52 64 1 EF 901 ¢ EXT y wii, a, (R6), R2 ; 

0 Ca 001 BICL2 R2, RO ; 
1 b} 174 CMPL sO, #1 + 2433 
7E Ee Bo155 a ; (SP) = 2436 

0005" CF $f 13 PUSHAB P.APH : 

OC At fF 00181 19$: | PUSHAB PTR : 

68 03 FB 001 CALLS #3, ADD_TO_LIST_RTN : 
é 8 187 208:  TSTw  (Ré6) + 2438 

E 189 GEQ 218 : 
7E 50 BF OA 91 MOVZBL #80, -(SP) + 2439 

0000" CF 9F O018F PUSHAB B.APs ; 

OC AE 9F 00193 PUSH TR : 

6 0 Fe 0196 CALLS #3, ADD TO_LIST_RIN : 
O£ $ 1 i 199 21$: BBC Hae (R35), 228 ; 442 
E 50 8F 9A 0019D MOVZBL #80. -(SP5 + 264 

0000" CF 9F GO1A1 PUSHAB P.APL ; 

OC AE 9F OO1AS PUSHAB PTR ; 

68 03 FB 0018 CALLS #3, ADD_TO_LIST_RIN : 
95 OO1AB 228: TSTB (R5) + 2645 

—E 18 OO1AD GEQ = 23 ; 
7E 50 F 9A OOTAF MOVZBL #80, -(SP) 3; 2446 

0900" CF OF 0183 PUSHAB P.APN ; 

OC AE 9F 001B PUSHAB PTR ; 

68 03 F OBA CALLS #3, ADD_TO_LIST_RIN : 
BS 00180 238: TStw  (R5) + 2448 

— 18 O1BF BGEQ 24$ ; 
7E 50 BF 9A 001C1 MOVZBL #80, -(SP) + 2449 

0000" CF 9F 001C5 PUSHAB P.APP : 

0c AE 9F 0019 PUSHAB PTR : 

6 0 Fe O1CC CALLS #3, ADD TO_LIST_RIN ; 
OE 6 1é . O1CF 24$: BBC #36, (R5), "258 + 2451 
é 50 8F 9A 0103 MOVZBL #80. -(SP5 + 2452 

0000° CF 9F 91D PUSHAB P.APR ; 

OC AE 9F 001DB PUSHAB PTR ; 

6a 03 F 1DE CALLS #3, ADD_TO_LIST_RTN ; 
? 1€1 258 TSTL = (R5) + 2454 

é 163 BGEG 268 : 
7E 50 BF 9A iE MOVZBL #80, -(SP) + 2455 

0000" Cr 9F O01E9 SHAB P.APT ; 

8 “ 08 Pe O19 CAS. #3" ADD_TO.LIST_RTN 
Oe 6 3 1F3 268: LBC (RS), 277 ~ ; 2457 
E 50 BF 9A 0016 MOVZ7BL #80, -(SP) > 2658 

0090" CF OF OOTFA PUSHAB P.APV ; 

gp RE BME sop rosuist.atn | 
OE $ 0 ft 27$: 8BC fi. CRY obs “ + 2460 

E F OA MOVZBL #86, -(SP) ; 
50 z 86, -(SP 461 

0000" CF 9F 0020C PUSHAB P.APX : 
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Page 9! 
60-76 (18) 
; AX-11 Bliss-32 EVPRT.B 231 
1 ~309-1986 91:33:37 CLIUTL.SRCJSHODE ) ; 
ae leas * R ate + 2663 
PUSHAB TO_LIST_ + 26464 
vive 3 al 0c At oF } CALLS a ADDS) 545 : 
v04 Ef 80516 288: Ser #80, =(SPS ; 
es op A OOCIA PUSHAB PAP , 466 
OE i 0000" CF fF 1 PUSHAB ’ ADD JOA IST RIN : 46 
com OF certs is (RS) 308 
a) a ie 
zy £8 30$: BLBC gcR5), 318 ; 
iF 85 BF 5A O0s8 PUSKAS P.AGD : 267 
(Oe OAL. OOF 0094 ae se ; 
03 FB 0024 31$: 6BC #80, -(SP5 ; 
6 id £1 O0cac mov7e, 900, ; 
“SR Eee fee AB Tatts. t 2476 
ee) coe i = 
1 85 $5 0096 Le ; 
OE 19 0026 mOVZBL £60, : 
8F 9A 69 SHAB oe > 2479 
7€ eae $9 its, #5. ADD_TO_LIST_RIN : 5480 
Moe AE SE 003rh Stee) 12), 348~ : 
0 4 7% 33$: LB 80 pd SP) : 
68 A Sai P : 
OE So BF SA 00978 PUSHAB P.AQJ 3482 
7 O* CF oF OORT PUSHAB PIR LIST_RIN : 308 
sad AE 9F ; CALLS oie (R27, 35$ : 
08 FB $: BBC 6, -(SP) : 
06 £1 34: MOVZBL #8 P : 
e2 ar OA PUSHAB P.AQL 2485 
OE 7E 00s" CF or pysnas ay ADD TO. [stat + 2486 
0c ag FB #4. G(R ds 
35$: 6B #86, -(SP : 
0€ oi 5 i 5A PUSHAB P-AGN Pepsin ; 2488 
7€ 0090 cr oF ches #3, ADU_TO_LIST_ Pies 
: ae ; 
68 03 98 ma 6B 78, =<sP) : 
oe ROVZBL 80, 
5 F an PUSHAB ota 1N : 2491 
re 0080" ie Cute, ase ADD TO,LIST_R ; 2692 
* 08 fe bea ee - LS Pm 
6 1 movzeL #80, : 
5 HAB P.AQR : 2494 
OF $e 38, ef oF PUSHAB PTR DD_TO_LIST_RIN ; 
008 AE OF CALLS 035 MURS) “898 
* 03 £8 388: BBC ae, 
tee | 
OE 
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7E 0 BF 9A 00206 MOVZBL #80, -(SP) 
00 ? CF f DA PUSHAB P.AQT 
68 5 Fe of CALLS #3, App T0 LIST_RTN 
$ E4 39S: ¢ #i. (R23, & 
E 0 F 9A 00268 mOVZBL #80, -(SP) 
00 0° CF f i PUSHAB P.AQV 
6 o8 Fe F CALLS 43 ADD TOLLIST.RTN 
5 1 f6 40$: BBC #i?, (RS), 7418 
= 50 BF SA OOCFA MOVZBL #80, -(SPS 
0000" CF f F PUSHAB p-Adx 
6 08 Fe 0 i CALLS #3, ADD_TO_LIST_RTN 
6 4 § 41$ BBC * 6. (RS), "428 
E 50 8F OA 6 o¢ MOVZBL #80. -(SP5 
(Oe ORE OOF OO8te PusMAs PAdz 
68 f FB 00317 CALLS #3, ADD_TO L{ST_RTN 
$6 2 gi O31A 42%: BBC He (R63, 23S 
E F 9A 00 1 MOVZBL #86, -(SP) 
0000" CF 3 0 PUSHAB p-ARB 
be o§ FB 00 CALLS #3. ADD_TO_LIST_RTN 
0098 4 1 00 § 438 ¢ #3. 152TR4T, 448 
E 50 BF 9A 00 mOV7BL #86, -(SP) 
0000" CF 9F 00 SHAB P.ARD 
OC AE 9F OO33A PUSHAB PTR 
ee 0 EF DOs ous: GOEL? wBe thoy abe 
edt BPE Rum Mi -th 
OC AE 9F 0034C PUSHAB Pi 
68 ; Fe 0 F CALLS 43, ADD_TO_LIST_RTN 
6 5 245%: BBC #5. (ROY, & 
E 50 BF 9A 00356 MOVZBL #86, -(SP) 
ooo dee SAS Bin 
68 0 FB 0 f CALLS #3, ADD_TO_LIST_RTN 
E gi Ab : 9 46$: BLBC 1(R6), &7$ 
ois HB site a 
68 a 0 4 5 atic pl ADD_TO_LIST_RIN 
$6 ; i 47%: 6B #9. (ROY che . 


MOVZBL #86, -(SP) 
PUSHAB P.ARL 


AE 5 PTR 
68 #3, ADD_TO_LIST_RIN 
4 D 48$: BBC ais, (RB), 498 
£ F MOVZBL #80. -(SPS 

SHAB P.ARN 


VESABARM SOSA 
o 
> 
rr 
- 
“ 


#3, ADD_TO_LIST_RIN 
ey 498: PUSHL 


PUSHAB ASCID_ NULL 
CALLS) = #2, SROWSURITE_LINE 


rPooo 
See 
i 
Cc 
wn 


50 
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50 


cs 
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sonw 
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POOOMONNLON £OOW* LN10ow" 


oo-o 44 
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| ak ek ek ek ek ee ele ee 


y at et et et ee 
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$5 5*.VECTORCETRSL 
R 


i. 1. RI 


#i, 1, RO 
DESC_VECTORCROJ, DESC_VECTOR+4(R1], RO 


#1, 1, RO 
p §c_VECTORCROJ, (R3) 


P.ARR 
Ts SYSSFAQL 
FAO_DESC, #30 
53$ 


#1, RO 

FAO_DESC #30, RO 
RO, ~20(R5) 
FAO_DESC, (R7) 


58 

#14, (RS), 56$ 

KEY 

57$ 

#1, KEY 

KEY 

132(R4), =(SP) 

PROT_ADOR 

a3 EXPAND _PROT 
6, PROT 


a esc 
FAO_BUFF+80, PROT_DESC+4 
PROT_ADDR 


AX-11 Bliss- 
CLIUTL.SRC SHOD 


swong ent $-deo-19Be 01:85:57 


on 


AD OF ze PUSHAB PROT_DESC 
AD 9F PUSHAB PROT DESC 
0060" CF 9F PUSHAB P.AR 
9 4 Fe CALLS #4, SYSSFAO 
20 Ad F 0 AD 58%: SUB PROT DESC, 4 AO 32(R3) 
38 A 0086 C4 3 MOVZWL 134(R4 R35 
..-& A As ¢ 49 MOVZWL 122(R4), ) 
38 AS OF C PUSHAB 40(R3) 
0000" CF 9F 0049F PUSHAB p Ase 
1¢ = A3. OF 0043 PUSHAB 28(R3) 
0000" CF 9F 004A6 PUSHAB P.ARZ 
A3 9F OOGAA PUSHAB 8(R3) 
0000' cf F 004AD SHAB  P.ARX 
3 pp B1 PUSHL R3 
0000’ cf F 83 PUSHAB P.ARV 
3 OD 0048 PUSHL R3 
0000' cf 9F 00489 PUSHAB ASCID_NU ub 
6A A FB eg) CALLS #10, SHOWSWRITE_LINE 
04 004C0 RET 


; Routine Size: 1217 bytes, Routine Base: SCODES + 10C3 


LyPRT B$2:1 
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Se Se Oe Oe Oe oe 


soma 


3607 0 Eltpon 


PSEC 
Name arte 
SOWNS 
SPLITS 20 di 
SCODES 


F 


Library Statistics 


ile 


~-$255$D0UA28: CSYSLIBILIB.L32;1 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SHODEVPRT/OBJ=OBJ$:SHODEVPRT MSRC$: SHODEVPRT/UPDATE=(ENH$: SHODEVPRT ) 


——— 
ee dl 


16-Sep-1 AX=11 BLiss-32 vé.0-7 
1B-bep-1984 2 eae ct ee tg he tak 


-EXTRN LIBSSIGNAL 


T SUMMARY 
Attributes 

NOVEC, WRT, RD get G wee LCL, REL, CON,NOPIC,ALIGN(2) 
NOVEC,NOWRT, RD ,NO EXE «NO LCL, REL, CON,NOPIC,ALIGN(2) 
NOVEC,NOWRT, RD, EXE, NOSHR LCL, REL, CON,NOPIC,ALIGN(2) 

eoeeeee= Symbols -<------ Pages Processing 

Total Loaded Percent Mapped Time 

18619 217 1 1000 00:01.9 


COMMAND QUALIFIERS 


5508 As: 2 + 7536 data bytes 


PU Min: 1330 
/CPU-Min: 319 
Used: 488 pages 
tion Complete 


d Tine: fe 
2 
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